|
| |
|
|
A124154
|
|
Numbers n such that 1 + n + n^3 + n^5 is prime.
|
|
5
|
|
|
|
2, 4, 8, 20, 22, 32, 36, 50, 54, 62, 64, 72, 78, 84, 86, 90, 92, 94, 96, 98, 112, 124, 134, 144, 146, 216, 224, 238, 240, 246, 250, 256, 262, 276, 294, 296, 298, 300, 314, 334, 370, 378, 382, 392, 400, 402, 406, 420, 430, 450, 472, 480, 482, 494, 510, 512, 526
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
All numbers n have to be even, because sum of 3 odd + 1 is even and can't be prime >3.
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
|
|
|
MATHEMATICA
|
Do[If[PrimeQ[1 + n + n^3 + n^5], Print[n]], {n, 1, 300}]
Select[Range[1000], PrimeQ[Total[#^Range[1, 5, 2]] + 1] &] (* Vincenzo Librandi, Jun 27 2014 *)
|
|
|
PROG
|
(PARI) forstep(n=2, 1000, 2, if(isprime(1 + n + n^3 + n^5), print1(n", "))) \\ Franklin T. Adams-Watters, Apr 09 2009
(Magma) [n: n in [0..600] | IsPrime(s) where s is 1+&+[n^i: i in [1..5 by 2]]]; // Vincenzo Librandi, Jun 27 2014
|
|
|
CROSSREFS
|
Cf. A049407, similar sequences listed in A244376.
Sequence in context: A326997 A014225 A217520 * A296606 A222562 A252891
Adjacent sequences: A124151 A124152 A124153 * A124155 A124156 A124157
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Artur Jasinski, Dec 13 2006
|
|
|
EXTENSIONS
|
More terms from Franklin T. Adams-Watters, Apr 09 2009
|
|
|
STATUS
|
approved
|
| |
|
|
