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

1, 10, 67, 287, 945, 2579, 6179, 13389, 26809, 50351, 89679, 152751, 250420, 397227, 612185, 919814, 1351182, 1945205, 2750000, 3824456, 5239923, 7082118, 9453184, 12473898, 16286197, 21055745, 26974877, 34265658, 43183191, 54019174

Offset

0,2

Links

Table of n, a(n) for n=0..29.

Mathematica

n = 10; t = Select[ Flatten[ Table[17^g* Select[ Flatten[ Table[13^f* Select[ Flatten[ Table[11^e* 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[7, 10]}]], # <= 10^n &], {e, 0, n*Log[11, 10]}]], # <= 10^n &], {f, 0, n*Log[13, 10]}]], # <= 10^n &], {g, 0, n*Log[17, 10]}]], # <= 10^n &]; Table[ Length[ Select[t, # <= 10^n &]], {n, 0, 10}]

Crossrefs

Row 7 of A253635.

Cf. A011557, A080681.

Sequence in context: A231886 A278090 A266443 * A086443 A172066 A026844

Adjacent sequences: A108272 A108273 A108274 * A108276 A108277 A108278

Keyword

nonn

Author

Robert G. Wilson v, May 31 2005

Extensions

a(11)-a(18) from Donovan Johnson, Sep 16 2009

a(19)-a(29) from Max Alekseyev, Apr 27 2010

Status

approved