|
Search: id:A106600
|
|
|
| A106600 |
|
Number of positive integers <= 10^n that are divisible by no prime exceeding 7. |
|
+0
2
|
|
| 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; listen)
|
|
|
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 this_sequence A085437 A024166 A103501
Adjacent sequences: A106597 A106598 A106599 this_sequence A106601 A106602 A106603
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 27 2005
|
|
|
Search completed in 0.002 seconds
|
