OFFSET
2,2
COMMENTS
Lim_{n->infinity} a(n+1)/a(n) ~ e.
MATHEMATICA
f[n_] := Round[ n / PrimePi[ n]]; g[2] = 2; g[n_] := g[n] = Block[{k = PrimePi[E g[n - 1]]}, While[ f[k] < n, k++ ]; k]; Do[ Print[ g[ n]], {n, 2, 26}]; PrimePi[ g[ # ]] & /@ Range[2, 28]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post and Robert G. Wilson v, May 17 2005
STATUS
approved