OFFSET
0,1
MATHEMATICA
Do[f=Min[Select[Take[Union[ Flatten[ Table[ Prime[i]^(2^n) + Prime[j]^(2^n), {i, 1, 100}, {j, 1, 100} ] ] ], 500], PrimeQ]]; Print[{n, f}], {n, 0, 7}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Nov 14 2006
STATUS
approved