1,2

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}]

Cf. A038772 Numbers not divisible by any of their digits.

Sequence in context: A082544 A059378 A024003 this_sequence A027846 A042872 A142623

Adjacent sequences: A147960 A147961 A147962 this_sequence A147964 A147965 A147966

more,nonn

Zak Seidov (zakseidov(AT)yahoo.com), Nov 17 2008