OFFSET
1,1
FORMULA
a(n) = prime(A104776(n)).
MATHEMATICA
Select[Prime[Range[13000]], IntegerQ[Sqrt[PrimePi[#]+2 #]]&] (* Harvey P. Dale, Jun 01 2021 *)
PROG
(PARI) lista(nn) = {vec = vector(nn, i, prime(i)); pp = select(i->(issquare(2*i+primepi(i))), vec); pp; } \\ Michel Marcus, Oct 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 23 2005
STATUS
approved