A153504 Numbers n such that n^8+(n+1)^8 is a prime.

1, 5, 17, 23, 32, 33, 35, 39, 42, 66, 68, 76, 78, 90, 113, 118, 129, 152, 181, 186, 188, 198, 220, 221, 229, 231, 287, 300, 306, 307, 311, 316, 348, 362, 380, 401, 409, 414, 426, 443, 453, 464, 487, 503, 508, 510, 511, 560, 572, 593, 628, 644, 646, 662, 691

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

Sequence in context: A054997 A067377 A337095 * A044438 A101414 A105884

Adjacent sequences: A153501 A153502 A153503 * A153505 A153506 A153507

Keyword

nonn,easy

Author

Vincenzo Librandi, Dec 28 2008

Extensions

Extended by Robert G. Wilson v, Feb 17 2009

Status

approved