|
%I #12 Feb 11 2020 12:14:21
%S 1,4,13,15,24,30,37,40,55,93,138,139,148,153,154,159,160,165,184,195,
%T 204,223,258,303,355,360,373,459,472,475,510,519,534,577,594,607,615,
%U 627,658,672,688,723,735,739,795,805,807,817,819,820,847,874,879,904
%N Numbers k such that 1 + k^2 + k^4 + k^6 + k^7 is prime.
%H Daniel Starodubtsev, <a href="/A126908/b126908.txt">Table of n, a(n) for n = 1..10000</a>
%t a = {}; Do[If[PrimeQ[1 + n^2 + n^4 + n^6 + n^7], AppendTo[a, n]], {n, 1, 1400}]; a
%t Select[Range[1000],PrimeQ[1+#^2+#^4+#^6+#^7]&] (* _Harvey P. Dale_, Jan 15 2016 *)
%o (PARI) is(n)=isprime(1+n^2+n^4+n^6+n^7) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A049407, A124175 A124176 A124177, A124178, A124179, A124180, A124181, A126908-A126916.
%K nonn
%O 1,2
%A _Artur Jasinski_, Dec 31 2006
|
