OFFSET
1,3
COMMENTS
a(n) = 0 iff n is of form 2^i*5^j (cf. A003592).
MATHEMATICA
lst = {}; Do[z = n - Mod[10^n/10, n]; If[z == n, z = 0]; AppendTo[lst, z], {n, 79}]; lst (* Arkadiusz Wesolowski, Apr 02 2012 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Dec 17 2001
STATUS
approved