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

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

Offset: 0

Author

Robert G. Wilson v, May 27 2005

Keywords

• nonn

Links

• David A. Corneth, Table of n, a(n) for n = 0..1500

Crossrefs

Row 3 of A253635.

Cf. A011557, A051037, A071520.

Programs

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}]