|
%I #10 Sep 08 2022 08:46:08
%S 60,74,86,150,164,438,446,504,560,620,830,870,890,908,990,1194,1302,
%T 1488,1596,1668,1788,2252,2354,2564,2652,2838,3194,3602,3792,3828,
%U 3924,3960,4296,4506,4608,4676,4968,5352,5402,5504,5694,5868,5922,6150,6170,6176
%N Numbers k such that 1 + k + k^3 + k^5 + k^7 + k^9 + ... + k^33 is prime.
%H Vincenzo Librandi, <a href="/A244384/b244384.txt">Table of n, a(n) for n = 1..660</a>
%t Select[Range[8000], PrimeQ[Total[#^Range[1, 33, 2]] + 1]&]
%o (Magma) [n: n in [0..6500] | IsPrime(s) where s is 1+&+[n^i: i in [1..33 by 2]]];
%Y Cf. similar sequences listed in A244376.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jun 27 2014
|
