OFFSET
0,2
MAPLE
s := 0:for i from 1 to 200 do if(isprime(i^4+(i+1)^4)) then s := s+1:a[s] := i^4:fi:od:seq(a[k], k=1..s);
MATHEMATICA
Transpose[Select[Partition[Range[100]^4, 2, 1], PrimeQ[Total[#]]&]][[1]] (* Harvey P. Dale, Sep 19 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 25 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 26 2003
STATUS
approved