login
A123622
Smallest prime of the form p^(2^n) + q^(2^n), where p,q are primes.
0
5, 13, 97, 815730977, 15496731425178936435099327796097, 62623297589448778360828428329074752313100292737, 23169162752708970943114627382699355445603465075569066753527132965271355336698663708393617779709970177
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
Sequence in context: A107171 A309532 A123646 * A337749 A117340 A304348
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Nov 14 2006
STATUS
approved