A104992 Squares of the form n+prime(n).

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

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

Squares in A014688.

Sequence in context: A039606 A041498 A264479 * A153483 A030686 A030688

Adjacent sequences: A104989 A104990 A104991 * A104993 A104994 A104995

Keyword

nonn

Author

Zak Seidov, Apr 25 2005

Status

approved