OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..300
MATHEMATICA
Select[Table[n+Prime[n], {n, 20000}], IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Sep 21 2024 *)
PROG
(PARI) lista(nn) = {vec = vector(nn, i, i + prime(i)); pp = select(i->(issquare(i)), vec); print(pp); } \\ Michel Marcus, Oct 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 25 2005
STATUS
approved