|
Search: id:A100752
|
|
|
| A100752 |
|
Number of positive integers <= 10^n that are divisible by no prime exceeding 3. |
|
+0
1
|
|
| 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; listen)
|
|
|
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.
Adjacent sequences: A100749 A100750 A100751 this_sequence A100753 A100754 A100755
Sequence in context: A140676 A025056 A038349 this_sequence A143058 A011934 A100206
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 27 2005
|
|
|
Search completed in 0.002 seconds
|
