OFFSET
0,2
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..1000
MATHEMATICA
f[n_] := Mod[n, Dot @@ Transpose@ FactorInteger@ n]; t = Table[0, {1000}]; k = 1; While[k < 100001, a = f[k]; If[a < 1001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++]; t
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Mar 01 2014
STATUS
approved