OFFSET
0,5
FORMULA
MATHEMATICA
c[x_] := FixedPoint[x + PrimePi[#] + 1 &, x]; Table[Floor[Prime[z = 2^n]/c[z]], {n, 40}] (* Jayanta Basu, Jul 08 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 05 2002
EXTENSIONS
Offset changed to 0, a(0) prepended and a(41)-a(70) added by Amiram Eldar, Jun 21 2024
STATUS
approved