OFFSET
1,1
COMMENTS
EXAMPLE
For j=0 1+1=2 is prime; other conditions are: because of p^4+16==prime; 3rd and 4th conditions are as follows: prime=p^8+256 and prime=2^128+p^128.
MATHEMATICA
{ta=Table[0, {100}], u=1}; Do[s0=2; s4=16+Prime[j]^4; s8=256+Prime[j]^8; s128=2^128+Prime[j]^128 If[PrimeQ[s0]&&PrimeQ[s4]&&PrimeQ[s8]&&PrimeQ[s128], Print[{j, Prime[j]}]; ta[[u]]=Prime[j]; u=u+1], {j, 1, 1000000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 01 2004
EXTENSIONS
a(5)-a(22) from Donovan Johnson, Oct 12 2008
STATUS
approved