OFFSET
1,1
EXAMPLE
For j=0 1+1=2 is prime; other conditions are:
because of p^2+4==prime; 3rd and 4th conditions are as
follows: prime=p^4+16 and prime=2^64+p^64.
MATHEMATICA
{ta=Table[0, {100}], u=1}; Do[s0=2; s2=4+Prime[j]^2; s4=16+Prime[j]^4; s64=2^64+Prime[j]^64 If[PrimeQ[s0]&&PrimeQ[s2]&&PrimeQ[s4]&&PrimeQ[s64], Print[{j, Prime[j]}]; ta[[u]]=Prime[j]; u=u+1], {j, 1, 1000000}]
Select[Prime[Range[500000]], AllTrue[Table[2^j+#^j, {j, {0, 2, 4, 64}}], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 29 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 01 2004
STATUS
approved