OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst = {}; Do[ If[ PrimeQ[n^8 + (n + 1)^8], AppendTo[lst, n]], {n, 1000}]; lst (* Robert G. Wilson v, Feb 17 2009 *)
Flatten[Position[Partition[Range[700]^8, 2, 1], _?(PrimeQ[Total[#]]&), {1}, Heads-> False]] (* Harvey P. Dale, Jun 10 2014 *)
PROG
(Magma) [n: n in [1..700] | IsPrime(n^8+(n+1)^8)]; // Vincenzo Librandi, Aug 31 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Dec 28 2008
EXTENSIONS
Extended by Robert G. Wilson v, Feb 17 2009
STATUS
approved