OFFSET
0,2
MAPLE
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);
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 25 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 26 2003
STATUS
approved