A154535 Numbers n such that n^16+(n+1)^16 is a prime.

1, 3, 5, 6, 7, 14, 21, 31, 34, 41, 45, 56, 66, 70, 75, 80, 89, 93, 96, 101, 116, 127, 142, 149, 162, 167, 171, 176, 185, 190, 192, 194, 199, 215, 218, 223, 225, 231, 238, 239, 264, 269, 275, 313, 321, 326, 374, 375, 386, 404, 410, 416, 418, 419, 427, 436, 437

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

lst={}; Do[If[PrimeQ[n^16+(n+1)^16], AppendTo[lst, n]], {n, 500}]; lst (* Vincenzo Librandi, Aug 31 2012 *)
Select[Range[500], PrimeQ[#^16 + (# + 1)^16] &] (* Bruno Berselli, Aug 31 2012 *)

Prog

(Magma) [n: n in [1..600] |  IsPrime(n^16+(n+1)^16 )]; // Vincenzo Librandi, Aug 31 2012

Crossrefs

Sequence in context: A082229 A237281 A086188 * A006754 A281725 A274928

Adjacent sequences: A154532 A154533 A154534 * A154536 A154537 A154538

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 11 2009

Status

approved