A244390 Numbers k such that 1 + k + k^3 + k^5 + k^7 + k^9 + ... + k^57 is prime.
12, 78, 92, 324, 588, 758, 800, 1248, 1380, 1472, 2324, 2450, 3038, 3930, 4328, 4370, 5580, 5952, 6072, 6164, 6872, 6890, 6918, 7814, 9318, 9734, 9944, 10074, 10122, 10272, 10598, 11070, 11298, 11852, 12054, 12210, 12930
Offset: 1
Links
- Vincenzo Librandi and Robert Israel, Table of n, a(n) for n = 1..2500 (first 210 terms from Vincenzo Librandi)
Crossrefs
Cf. similar sequences listed in A244376.
Programs
-
Magma
[n: n in [0..13000] | IsPrime(s) where s is 1+&+[n^i: i in [1..57 by 2]]];
-
Maple
f:= unapply(1 + sum(n^(2*j+1),j=0..28), n): select(isprime @ f, [seq(2*i,i=1..1000)]); # Robert Israel, Jul 13 2014
-
Mathematica
Select[Range[13000], PrimeQ[Total[#^Range[1, 57, 2]] + 1] &]
Comments