A113483 a(n)=Prime(a(n-2)+Pi(a(n-1))), where Prime(n) means n-th prime and Pi(n) means number of primes<=n.

2, 3, 7, 17, 43, 127, 373, 1229, 4177, 15439, 59141, 242393, 1028051, 4607803, 21355507, 103637683, 519232333, 2706119771, 14531789681, 80784565951, 461802480011, 2722713380077, 16475872190489, 102523358575031

Offset

1,1

Links

Table of n, a(n) for n=1..24.

Mathematica

a[1] = 2; a[2] = 3; a[n_] := a[n] = Prime[a[n - 2] + PrimePi[a[n - 1]]]; Array[a, 24] (* Robert G. Wilson v *)
nxt[{a_, b_}]:={b, Prime[a+PrimePi[b]]}; NestList[nxt, {2, 3}, 25][[All, 1]] (* Harvey P. Dale, Jan 27 2021 *)

Crossrefs

Sequence in context: A333499 A257553 A143013 * A173868 A274291 A358456

Adjacent sequences: A113480 A113481 A113482 * A113484 A113485 A113486

Keyword

nonn

Author

Yasutoshi Kohmoto, Jan 12 2006

Extensions

More terms from Robert G. Wilson v, Jan 13 2006

Status

approved