%I #16 Jul 14 2024 19:51:32
%S 79,2399,14639,28559,194479,707279,2313439,2825759,3418799,5764799,
%T 7890479,12117359,28398239,47458319,52200623,57289759,81450623,
%U 96059599,104060399,200533919,276922879,395254159,418161599,937890623,1073283119,1171350623,1275989839
%N Primes of the form k^4 - 2.
%H Frank M Jackson, <a href="/A182347/b182347.txt">Table of n, a(n) for n = 1..1000</a>
%e 79 = 3^4 - 3; 2399 = 7^4 - 3.
%p # choose N large, then S is the desired set
%p f:=n->n^4 - 2:
%p S:={}:
%p for n from 0 to N do if(isprime(f(n))) then S:=S union {f(n)}: fi: od:
%t lst = {}; Do[If[PrimeQ[r=(2k+1)^4-2], AppendTo[lst, r]], {k, 1, 1000}]; lst[[1;;100]]
%Y Cf. A037896.
%K nonn
%O 1,1
%A _Patrick Devlin_, Apr 25 2012