|
| |
|
|
A106600
|
|
Number of positive integers <= 10^n that are divisible by no prime exceeding 7.
|
|
3
| |
|
|
1, 10, 46, 141, 338, 694, 1273, 2155, 3427, 5194, 7575, 10688, 14672, 19674, 25861, 33406, 42487, 53302, 66061, 80988, 98311, 118271, 141124, 167139, 196597, 229785, 267007, 308575, 354820, 406074, 462692, 525030, 593467, 668384, 750177, 839260
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
MATHEMATICA
| n = 35; t = Select[ Flatten[ Table[ 7^d*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 &], {d, 0, n*Log[5, 10]}]], # <= 10^n &]; Table[ Length[ Select[t, # <= 10^n &]], {n, 0, 35}]
|
|
|
CROSSREFS
| Sequence in context: A007940 A082604 A081583 * A085437 A024166 A103501
Adjacent sequences: A106597 A106598 A106599 * A106601 A106602 A106603
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), May 27 2005
|
| |
|
|
