|
Search: id:A106598
|
|
|
| A106598 |
|
Number of positive integers <= 10^n that are divisible by no prime exceeding 5. |
|
+0
2
|
|
| 1, 9, 34, 86, 175, 313, 507, 768, 1105, 1530, 2053, 2683, 3429, 4301, 5310, 6466, 7780, 9259, 10917, 12761, 14801, 17048, 19511, 22201, 25127, 28300, 31730, 35425, 39397, 43654, 48207, 53066, 58243, 63746, 69584, 75769, 82310, 89216, 96499, 104168
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MATHEMATICA
|
n = 40; t = Select[ Flatten[ Table[ 5^c*Select[ Flatten[ Table[2^a*3^b, {a, 0, n*Log[2, 10]}, {b, 0, n*Log[3, 10]}]], # <= 10^n &], {c, 0, n*Log[5, 10]}]], # <= 10^n &]; Table[ Length[ Select[t, # <= 10^n &]], {n, 0, 40}]
|
|
CROSSREFS
|
Sequence in context: A139275 A133547 A100179 this_sequence A014816 A147691 A000441
Adjacent sequences: A106595 A106596 A106597 this_sequence A106599 A106600 A106601
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 27 2005
|
|
|
Search completed in 0.002 seconds
|
