OFFSET
1,1
MATHEMATICA
Table[Prime[PrimePi[n]+n]+1, {n, 60}] (* Harvey P. Dale, Sep 25 2015 *)
PROG
(PARI) for(n=1, 100, s=0:forprime(k=nextprime(n+1), 10^8, s=s+1: if(s==n, s=k+1:break)):print1(s", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 31 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 26 2003
STATUS
approved