1,3

a(n) = 0 iff n is of form 2^i*5^j (cf. A003592).

Table of n, a(n) for n=1..79.

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 *)

Sequence in context: A292945 A024690 A200728 * A284455 A300222 A246814

Adjacent sequences: A066206 A066207 A066208 * A066210 A066211 A066212

easy,nonn

Vladeta Jovovic, Dec 17 2001

approved