|
| |
|
|
A106598
|
|
Number of positive integers <= 10^n that are divisible by no prime exceeding 5.
|
|
3
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A014816 A147691 A000441
Adjacent sequences: A106595 A106596 A106597 * A106599 A106600 A106601
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), May 27 2005
|
| |
|
|
