|
%I #9 Sep 08 2022 08:46:08
%S 102,200,570,1368,1428,1674,1796,1980,2148,2426,2534,2600,2990,3006,
%T 3138,3188,3696,4116,4122,4710,4808,5078,6072,6158,6486,6732,6762,
%U 6956,7080,7146,7190,7328,7866,7976,8256,8664,9494,9758,9780,9890
%N Numbers k such that 1 + k + k^3 + k^5 + k^7 + k^9 + ... + k^45 is prime.
%H Vincenzo Librandi, <a href="/A244387/b244387.txt">Table of n, a(n) for n = 1..490</a>
%t Select[Range[10000], PrimeQ[Total[#^Range[1, 45, 2]] + 1]&]
%o (Magma) [n: n in [0..10000] | IsPrime(s) where s is 1+&+[n^i: i in [1..45 by 2]]];
%Y Cf. similar sequences listed in A244376.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jun 27 2014
|
