A126916 Numbers n such that 1 + n^2 + n^4 + n^6 + n^8 + n^10 + n^12 + n^14 + n^16 + n^18 + n^20 + n^22 + n^23 is prime.

1, 2, 11, 23, 47, 64, 77, 80, 103, 251, 290, 321, 331, 335, 375, 382, 387, 403, 507, 568, 590, 594, 649, 801, 805, 828, 830, 840, 847, 854, 905, 925, 926, 959, 982, 986, 1034, 1086, 1094, 1102, 1122, 1129, 1147, 1160, 1391

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

a = {}; Do[If[PrimeQ[1 + n^2 + n^4 + n^6 + n^8 + n^10 + n^12 + n^14 + n^16 + n^18 + n^20 + n^22 + n^23], AppendTo[a, n]], {n, 1, 1400}]; a
Select[Range[1400], PrimeQ[Total[#^Range[2, 22, 2]]+1+#^23]&] (* Harvey P. Dale, Oct 04 2018 *)

Prog

(PARI) is(n)=isprime(1+n^2+n^4+n^6+n^8+n^10+n^12+n^14+n^16+n^18+n^20+n^22+n^23) \\ Charles R Greathouse IV, Feb 17 2017

Crossrefs

Cf. A049407, A124175 A124176 A124177, A124178, A124179, A124180, A124181, A126908-A126916.

Sequence in context: A031385 A294551 A179878 * A090424 A056637 A141423

Adjacent sequences: A126913 A126914 A126915 * A126917 A126918 A126919

Keyword

nonn

Author

Artur Jasinski, Dec 31 2006

Status

approved