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

Author

Zak Seidov, Apr 25 2005

Keywords

• nonn

Links

• Zak Seidov, Table of n, a(n) for n = 1..300

Crossrefs

Squares in A014688.

Programs

Mathematica

Select[Table[n+Prime[n],{n,20000}],IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Sep 21 2024 *)

PARI

lista(nn) = {vec = vector(nn, i, i + prime(i)); pp = select(i->(issquare(i)), vec); print(pp);} \\ Michel Marcus, Oct 09 2013