|
%I #16 Feb 17 2017 15:42:41
%S 2,8,238,310,338,442,542,688,698,872,920,1198,1330,1382,1538,1558,
%T 1678,1702,1712,1768,1882,2032,2080,2102,2260,2312,2408,2440,2540,
%U 2642,3112,3170,3188,3268,3320,3580,3740,3742,3770,3980,4028,4048,4148,4292,4472
%N Numbers n such that n^10 + 9 is prime.
%H Carmine Suriano, <a href="/A125264/b125264.txt">Table of n, a(n) for n = 1..1524</a>
%t lst={};k=10;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[5000],PrimeQ[#^10+9]&] (* _Harvey P. Dale_, Nov 17 2014 *)
%o (PARI) is(n)=isprime(n^10+9) \\ _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), A125261 (k=6), A125262 (k=7), A125263 (k=8), this sequence (k=10), A125265 (k=11).
%K nonn
%O 1,1
%A _Zak Seidov_, Nov 26 2006
|
