login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #10 Sep 21 2024 17:04:49

%S 16,49,529,676,1225,1521,1681,1764,3249,4096,5929,9604,10404,10609,

%T 11664,12321,19600,24336,25921,26569,27889,33856,34225,34596,46656,

%U 51984,71289,72361,91204,100489,101124,104976,106929,109561,110889,111556,121104,125316,131769,135424,136161,141376,152881,156816,163216,166464,179776,188356

%N Squares of the form n+prime(n).

%H Zak Seidov, <a href="/A104992/b104992.txt">Table of n, a(n) for n = 1..300</a>

%t Select[Table[n+Prime[n],{n,20000}],IntegerQ[Sqrt[#]]&] (* _Harvey P. Dale_, Sep 21 2024 *)

%o (PARI) lista(nn) = {vec = vector(nn, i, i + prime(i)); pp = select(i->(issquare(i)), vec); print(pp);} \\ _Michel Marcus_, Oct 09 2013

%Y Squares in A014688.

%K nonn

%O 1,1

%A _Zak Seidov_, Apr 25 2005