OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) list(lim)=my(v=List(), p2, p4, t); lim\=1; if(lim<9, lim=9); forprime(p=3, sqrtint(2*lim-9), p2=p^2; p4=p2^2; forprime(q=3, min(sqrtint(2*lim-p2), p), if(isprime(t=(p2+q^2)/2) && isprime((p4+q^4)/2), listput(v, t)))); Set(v) \\ Charles R Greathouse IV, Feb 14 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski and Altug Alkan, Feb 13 2017
EXTENSIONS
More terms from Arkadiusz Wesolowski, Feb 13 2017
STATUS
approved