0,1

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}]

Sequence in context: A055623 A107171 A123646 this_sequence A117340 A117437 A106046

Adjacent sequences: A123619 A123620 A123621 this_sequence A123623 A123624 A123625

nonn

Alexander Adamchuk (alex(AT)kolmogorov.com), Nov 14 2006