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,2

Links

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

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

Row 3 of A253635.

Cf. A011557, A051037, A071520.

Sequence in context: A273744 A133547 A100179 * A279128 A293038 A326278

Adjacent sequences: A106595 A106596 A106597 * A106599 A106600 A106601

Keyword

nonn

Author

Robert G. Wilson v, May 27 2005

Status

approved