|
|
A100357
|
|
Numbers k such that 2^k + k^2 + 1 is prime.
|
|
20
|
|
|
0, 6, 12, 18, 162, 192, 216, 420, 1524, 5112, 7404, 24216, 25944, 101832, 346854
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
All terms are multiples of 6. Corresponding primes of the form 2^n+n^2+1 are in A035325. - Zak Seidov, Apr 05 2014
|
|
LINKS
|
|
|
MATHEMATICA
|
{ta={{0}}, tb={{0}}}; Do[g=n; s=2^n+n^2+1; If[PrimeQ[s], Print[n]; ta=Append[ta, n]; tb=Append[tb, s]], {n, 0, 10000, 6}]; {ta, tb, g}
Select[Range[0, 10000, 6], PrimeQ[2^# + #^2 + 1] &] (* Vincenzo Librandi, Sep 03 2012 *)
|
|
PROG
|
(Magma) [n: n in [0..800] | IsPrime(2^n + n^2 + 1) ] // Vincenzo Librandi, Sep 03 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Mathematica codes edited by Zak Seidov, Apr 05 2014
|
|
STATUS
|
approved
|
|
|
|