a=*0..$$
eval'#'+a*';a[j]-=a[i]while a[j+=i]
p a[i]if 1e4<=j=i='