|
%I #10 Feb 11 2020 12:35:08
%S 17,47,71,72,95,99,107,113,123,134,135,147,159,239,257,261,263,278,
%T 299,324,348,435,477,500,521,534,536,546,563,567,585,633,635,642,716,
%U 737,750,753,852,905,974,1088,1178,1181,1205,1272,1283,1298,1311,1331,1356
%N Numbers k such that 1 + k^2 + k^4 + k^6 + k^8 + k^10 + k^12 + k^14 + k^15 is prime.
%H Daniel Starodubtsev, <a href="/A126912/b126912.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^15], AppendTo[a, n]], {n, 1, 1400}]; a
%o (PARI) is(n)=isprime(1+n^2+n^4+n^6+n^8+n^10+n^12+n^14+n^15) \\ _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
|
