OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) list(lim)=my(v=List([2]), t); for(a=1, sqrt(lim), forstep(b=1+a%2, min(a, sqrt(lim-a^2)), 2, if(isprime(t=a^2+b^2) && isprime(a^4+b^4) && isprime(a^8+b^8), listput(v, t)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Apr 24 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Apr 24 2012
EXTENSIONS
a(4)-a(40) from Charles R Greathouse IV, Apr 24 2012
STATUS
approved