OFFSET
1,2
COMMENTS
Numbers ending in 0 are ignored.
LINKS
Hiroaki Yamanouchi, Table of n, a(n) for n = 1..100
MATHEMATICA
a[n_] := (c = 0; Do[id = IntegerDigits[i]; Le = Length[id]; pr = Product[If[id[[k]] > 0, Mod[i, id[[k]]], 1], {k, Le}]; If[Mod[i, 10]*pr > 0, (*Print[n]; *)c++ ], {i, 10^(n - 1), 10^n - 1}]; c); a[1] = 0; Table[a[m], {m, 8}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 17 2008
EXTENSIONS
a(10)-a(11) from Sean A. Irvine, Nov 11 2010
a(12) from Donovan Johnson, Nov 14 2010
a(13)-a(21) from Hiroaki Yamanouchi, Aug 31 2014
STATUS
approved