

A106598


Number of positive integers <= 10^n that are divisible by no prime exceeding 5.


6



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;
text;
internal format)



OFFSET

0,2


LINKS



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



KEYWORD

nonn


AUTHOR



STATUS

approved



