|
| |
|
|
A147963
|
|
a(n) = number of n-digit numbers not divisible by any of their digits.
|
|
0
| |
|
|
0, 31, 244, 2012, 16831, 142224, 1212521, 10412937, 89964007, 781192156, 6812648578, 59632654665
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Numbers ending in 0 are ignored.
|
|
|
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
| Cf. A038772 Numbers not divisible by any of their digits.
Sequence in context: A189923 A059378 A024003 * A027846 A042872 A142623
Adjacent sequences: A147960 A147961 A147962 * A147964 A147965 A147966
|
|
|
KEYWORD
| more,nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Nov 17 2008
|
|
|
EXTENSIONS
| a(10)-a(11) from Sean A. Irvine (sairvin(AT)xtra.co.nz), Nov 11 2010
a(12) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Nov 14 2010
|
| |
|
|
