OFFSET
0,1
COMMENTS
Corresponding values of q: 5, 2, 2, 2, 2, 2, 5, 29, 2, 2, 11, 2, 5, 2, 11, 7, 29, 5, 61, 2, 5, 2, 43, 2, 7, 13, 11, 5, 2, 5, 5.
MATHEMATICA
Do[q = 2; While[! PrimeQ[p = q*2^n - 3], q = NextPrime[q]];
Print[{n, p, q}], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 07 2014
STATUS
approved