OFFSET
1,1
COMMENTS
EXAMPLE
For j=0 1+1=2 is prime; other conditions are:
because of p^1+2=prime; 3rd and 4th conditions are as
follows: prime=p^4+16 and prime=65536+p^16.
MATHEMATICA
{ta=Table[0, {100}], u=1}; Do[s0=2; s1=2+Prime[j]^1; s8=16+Prime[j]^4; s16=65536+Prime[j]^16 If[PrimeQ[s0]&&PrimeQ[s4]&&PrimeQ[s8]&&PrimeQ[s128], Print[{j, Prime[j]}]; ta[[u]]=Prime[j]; u=u+1], {j, 1, 1000000}]
With[{j={0, 1, 4, 16}}, Select[Prime[Range[81000]], And@@PrimeQ[2^j+#^j]&]] (* Harvey P. Dale, Oct 17 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 01 2004
STATUS
approved