A182350 - OEIS

%I #12 Apr 10 2017 18:44:17

%S 11,251,1291,4091,20731,104971,1048571,2085131,9834491,11316491,

%T 14776331,18974731,29986571,49787131,78074891,168896011,236421371,

%U 406586891,429981691,454371851,479785211,959512571,1146228731

%N Primes of the form n^4 - 5.

%e 11 = 2^4 - 5; 251 = 4^4 - 5.

%p # choose N large, then S is the desired set

%p f:=n->n^4 - 5:

%p S:={}:

%p for n from 0 to N do if(isprime(f(n))) then S:=S union {f(n)}: fi: od:

%t Select[Range[200]^4-5,PrimeQ] (* _Harvey P. Dale_, Apr 10 2017 *)

%Y Cf. A037896.

%K nonn

%O 1,1

%A _Patrick Devlin_, Apr 25 2012