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

Author

Vincenzo Librandi, Jan 11 2009

Keywords

• nonn
• easy

Links

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

Programs

Magma

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

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 *)