%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
