A086690 Number of primes < 2^prime(n).

2, 4, 11, 31, 309, 1028, 12251, 43390, 564163, 28192750, 105097565, 5586502348, 80316571436, 305761713237, 4461632979717, 252252704148404, 14458792895301660, 55890484045084135, 3249254387052557215, 48995571600129458363, 190499823401327905601

Offset

1,1

Links

Gord Palameta, Table of n, a(n) for n = 1..23

Tomás Oliveira e Silva, Tables of values of pi(x) and of pi2(x)

Formula

a(n) = A007053(A000040(n)).

Example

There are 11 primes < 2^5.

Mathematica

Table[ PrimePi[ 2^Prime[n]], {n, 1, 14}]

Prog

(PARI) primesless2p(n) = \primes less than 2^p { forprime(x=2, n, y=pi(2^x); print1(y", "); ); print(); print(sr) } pi(n) = { c=0; forprime(x=2, n, c++); return(c) }

Crossrefs

Cf. A007053.

Sequence in context: A123427 A123421 A123430 * A059305 A191586 A120848

Adjacent sequences: A086687 A086688 A086689 * A086691 A086692 A086693

Keyword

nonn

Author

Cino Hilliard, Jul 28 2003

Extensions

Extended by Robert G. Wilson v, Jul 30 2003

Revised by Max Alekseyev, Jul 20 2007

Status

approved