|
%I #12 Apr 25 2020 13:22:31
%S 2,18,48,56,116,120,128,146,194,198,200,230,266,278,282,288,324,362,
%T 372,390,396,420,434,458,488,576,594,708,714,728,740,774,818,830,860,
%U 888,896,912,914,990,996,1002,1008,1010,1016,1044,1124,1128,1140,1146,1260
%N Numbers n such that 1 + n^2 + n^4 + n^6 + n^8 + n^9 is prime.
%H Daniel Starodubtsev, <a href="/A126909/b126909.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^9], AppendTo[a, n]], {n, 1, 1400}]; a
%t Select[Range[1300],PrimeQ[1+#^2+#^4+#^6+#^8+#^9]&] (* _Harvey P. Dale_, Apr 25 2020 *)
%o (PARI) is(n)=isprime(1+n^2+n^4+n^6+n^8+n^9) \\ _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
|
