%I #11 Mar 14 2015 01:59:13
%S 1,16,81,256,1296,4096,6561,20736,28561,38416,65536,390625,456976,
%T 531441,923521,1185921,1336336,1679616,1874161,2085136,2560000,
%U 3418801,5308416,8503056,15752961,20151121,21381376,26873856,29986576,37015056
%N Smaller of two successive 4th powers whose sum is a prime.
%p 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);
%t Transpose[Select[Partition[Range[100]^4,2,1],PrimeQ[Total[#]]&]][[1]] (* _Harvey P. Dale_, Sep 19 2011 *)
%K nonn
%O 0,2
%A _Amarnath Murthy_, Sep 25 2002
%E More terms from _Sascha Kurz_, Jan 26 2003
|