|
%I #19 Feb 17 2017 15:45:07
%S 0,18,24,114,204,216,222,246,276,312,318,372,384,426,438,468,498,582,
%T 618,654,822,888,948,984,1182,1188,1272,1278,1284,1374,1446,1536,1674,
%U 1782,1788,1794,1806,1812,1896,2034,2058,2088,2124,2154,2232,2238,2376
%N Numbers n such that n^6 + 5 is prime.
%H Carmine Suriano, <a href="/A125261/b125261.txt">Table of n, a(n) for n = 1..2254</a>
%t lst={};k=6;Do[If[PrimeQ[n^k+k-1], AppendTo[lst, n]], {n, 0, 10^4}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 10 2008 *)
%t Select[Range[0,2500],PrimeQ[#^6+5]&] (* _Harvey P. Dale_, Aug 29 2012 *)
%o (PARI) is(n)=isprime(n^6+5) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Other sequences of the type "Numbers n such that n^k + k - 1 is prime": A000040 (k=1), A005574 (k=2), A067200 (k=3), A125259 (k=4), A125260 (k=5), this sequence(k=6), A125262 (k=7), A125263 (k=8), A125264 (k=10), A125265 (k=11)..
%K nonn
%O 1,2
%A _Zak Seidov_, Nov 26 2006
|
