|
%I #12 Jan 07 2023 12:36:24
%S 2,22,38,102,128,130,172,232,250,292,378,404,424,458,472,490,510,600,
%T 608,702,774,802,868,888,938,950,1010,1140,1204,1220,1274,1294,1328,
%U 1372,1394,1398,1402,1412,1418,1502,1564,1580,1602,1670,1692,1792,1800
%N Numbers n such that 1 + k^2 + k^4 + k^6 + k^8 + k^10 + k^12 + k^14 + k^16 + k^17 is prime.
%H Daniel Starodubtsev, <a href="/A126913/b126913.txt">Table of n, a(n) for n = 1..10000</a>
%t a = {}; Do[If[PrimeQ[1 + n^2 + n^4 + n^6 + n^8 + n^10 + n^12 + n^14 + n^16 + n^17], AppendTo[a, n]], {n, 1, 1400}]; a
%t Select[Range[2000],PrimeQ[Total[#^{0,2,4,6,8,10,12,14,16,17}]]&] (* _Harvey P. Dale_, Jan 07 2023 *)
%o (PARI) is(n)=isprime(1+n^2+n^4+n^6+n^8+n^10+n^12+n^14+n^16+n^17) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A049407, A124175 A124176 A124177, A124178, A124179, A124180, A124181, A126908-A126916.
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Dec 31 2006
|
