|
|
A154535
|
|
Numbers n such that n^16+(n+1)^16 is a prime.
|
|
23
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|