|
| |
|
|
A100752
|
|
Number of positive integers <= 10^n that are divisible by no prime exceeding 3.
|
|
2
| |
|
|
1, 7, 20, 40, 67, 101, 142, 190, 244, 306, 376, 452, 534, 624, 720, 824, 935, 1052, 1178, 1309, 1447, 1593, 1745, 1905, 2071, 2244, 2424, 2611, 2806, 3006, 3214, 3429, 3652, 3881, 4117, 4360, 4610, 4866, 5131, 5401, 5679, 5964, 6255, 6553, 6859, 7172, 7491
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
MATHEMATICA
| n = 46; t = Flatten[ Table[2^a*3^b, {a, 0, n*Log[2, 10]}, {b, 0, n*Log[3, 10]}]], # <= 10^n &]; Table[ Length[ Select[t, # <= 10^n &]], {n, 0, 46}]
|
|
|
CROSSREFS
| Cf. A066343, A106598, A106600, A107352, A106629.
Sequence in context: A140676 A025056 A038349 * A162024 A143058 A175428
Adjacent sequences: A100749 A100750 A100751 * A100753 A100754 A100755
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), May 27 2005
|
| |
|
|
