login
A104992
Squares of the form n+prime(n).
2
16, 49, 529, 676, 1225, 1521, 1681, 1764, 3249, 4096, 5929, 9604, 10404, 10609, 11664, 12321, 19600, 24336, 25921, 26569, 27889, 33856, 34225, 34596, 46656, 51984, 71289, 72361, 91204, 100489, 101124, 104976, 106929, 109561, 110889, 111556, 121104, 125316, 131769, 135424, 136161, 141376, 152881, 156816, 163216, 166464, 179776, 188356
OFFSET
1,1
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
Squares in A014688.
Sequence in context: A039606 A041498 A264479 * A153483 A030686 A030688
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 25 2005
STATUS
approved