A075576 - OEIS

%I #6 Dec 05 2013 19:55:38

%S 1,4,16,25,49,81,144,196,289,361,484,576,625,841,900,1024,1156,1225,

%T 1521,1764,2209,2500,3600,4225,4761,4900,5184,6241,6724,7056,7225,

%U 7569,8100,9409,9801,10000,10404,10816,11881,12100,13225,14884,16900,18225

%N Smaller of two consecutive squares with a prime sum.

%p s := 0:for i from 1 to 300 do if(isprime(i^2+(i+1)^2)) then s := s+1:a[s] := i^2:fi:od:seq(a[k],k=1..s);

%K nonn

%O 0,2

%A _Amarnath Murthy_, Sep 25 2002

%E More terms from _Sascha Kurz_, Jan 26 2003