%I #9 Sep 08 2022 08:46:08
%S 2,88,126,230,300,582,596,612,730,790,886,978,1000,1022,1088,1160,
%T 1616,1710,1958,2200,2480,2512,2746,3058,3120,3132,3142,3348,3398,
%U 3546,3568,3800,4068,4190,4268,4438,4446,4692,4780,5012,5026,5300,5498,5558,5698,5880
%N Numbers k such that 1 + k + k^3 + k^5 + k^7 + k^9 + ... + k^41 is prime.
%H Vincenzo Librandi, <a href="/A244386/b244386.txt">Table of n, a(n) for n = 1..600</a>
%t Select[Range[7000], PrimeQ[Total[#^Range[1, 41, 2]] + 1] &]
%o (Magma) [n: n in [0..7000] | IsPrime(s) where s is 1+&+[n^i: i in [1..41 by 2]]];
%Y Cf. similar sequences listed in A244376.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jun 27 2014
|