%I #12 Jan 12 2013 16:05:40
%S 7,631,279847,4879687,12117367,20151127,28398247,62742247,68574967,
%T 81450631,174900631,1330863367,1698181687,3373402567,3722098087,
%U 4499860567,5719140631,9354951847,16610312167,18141126727
%N Primes of the form n^4 + 6.
%e 7 = 1^4 + 6; 631 = 5^4 + 6.
%p # choose N large, then S is the desired set
%p f:=n->n^4 + 6:
%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[1,400,2]^4+6,PrimeQ] (* _Harvey P. Dale_, Jan 12 2013 *)
%Y Cf. A037896.
%K nonn
%O 1,1
%A _Patrick Devlin_, Apr 25 2012