A123622 Smallest prime of the form p^(2^n) + q^(2^n), where p,q are primes.

5, 13, 97, 815730977, 15496731425178936435099327796097, 62623297589448778360828428329074752313100292737, 23169162752708970943114627382699355445603465075569066753527132965271355336698663708393617779709970177

Offset

0,1

Links

Table of n, a(n) for n=0..6.

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

Sequence in context: A107171 A309532 A123646 * A337749 A117340 A304348

Adjacent sequences: A123619 A123620 A123621 * A123623 A123624 A123625

Keyword

nonn

Author

Alexander Adamchuk, Nov 14 2006

Status

approved