A125260 - OEIS

%I #16 Oct 14 2019 20:42:29

%S 1,7,9,25,39,45,73,85,99,147,163,165,169,189,213,219,223,225,249,253,

%T 259,279,333,337,385,433,457,465,469,477,499,595,639,643,655,703,709,

%U 715,729,849,853,895,969,973,979,987,1065,1075,1077,1093,1165,1239,1255

%N Numbers n such that n^5 + 4 is prime.

%H Carmine Suriano, <a href="/A125260/b125260.txt">Table of n, a(n) for n = 1..4431</a>

%t lst={};k=5;Do[If[PrimeQ[n^k+k-1], AppendTo[lst, n]], {n, 10^3}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 10 2008 *)

%t Select[Range[1300],PrimeQ[#^5+4]&] (* _Harvey P. Dale_, Oct 14 2019 *)

%o (PARI) is(n)=isprime(n^5+4) \\ _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), this sequence (k=5), A125261 (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