OFFSET
1,1
EXAMPLE
3 is a term because 3 + 5 = 2^2 + 2^2.
179 is a term because 179 + 181 = 6^2 + 18^2.
521 is a term because 521 + 523 = 12^2 + 30^2.
809 is a term because 809 + 811 = 18^2 + 36^2.
MATHEMATICA
Select[Select[Prime@ Range@ 2700, PrimeQ[# + 2] &], Length[PowersRepresentations[2 # + 2, 2, 2] /. {0, _} -> Nothing] > 0 &] (* Michael De Vlieger, Mar 15 2016 *)
PROG
(PARI) isA000404(n)={ for( i=1, #n=factor(n)~%4, n[1, i]==3 && n[2, i]%2 && return); n && ( vecmin(n[1, ])==1 || (n[1, 1]==2 && n[2, 1]%2))}
t(n, p=3) = {while( p+2 < (p=nextprime( p+1 )) || n-->0, ); p-2}
for(n=1, 1e3, if(isA000404(2*t(n)+2), print1(t(n), ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Mar 13 2016
STATUS
approved