OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1400
MATHEMATICA
Select[Range[4000], PrimeQ[Total[#^Range[1, 11, 2]] + 1] &]
PROG
(Magma) [n: n in [0..1500] | IsPrime(s) where s is 1+&+[n^i: i in [1..11 by 2]]];
(PARI) isok(n) = isprime(1 + n + n^3 + n^5 + n^7 + n^9 + n^11); \\ Michel Marcus, Jun 27 2014
(Sage)
i, n = var('i, n')
[n for n in (1..2000) if is_prime(1+(n^(2*i+1)).sum(i, 0, 5))] # Bruno Berselli, Jun 27 2014
CROSSREFS
Cf. A127936.
Cf. numbers n such that 1+n+n^3 + ... + n^k, with k odd: A006093 (k=1), A049407 (k=3), A124154 (k=5), A124150 (k=7), A124163 (k=9), this sequence (k=11), A124164 (k=13), A244377 (k=15), A244378 (k=17), A124178 (k=19), A244379 (k=21), A124181 (k=23), A244380 (k=25), A124185 (k=27), A244383 (k=29), A124186 (k=31), A244384 (k=33), A124187 (k=35), A244385 (k=37), A124189 (k=39), A244386 (k=41), A124200 (k=43), A244387 (k=45), A124205 (k=47), A244388 (k=49), A124206 (k=51), A244389 (k=53), A124207 (k=55), A244390 (k=57), A124208 (k=59), A244391 (k=61), A124209 (k=63).
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jun 27 2014
STATUS
approved