OFFSET
1,2
MATHEMATICA
f[n_] := Block[{k = 1}, While[ !PrimeQ[(2*n - 1)^k - 2], k++ ]; (2*n - 1)^k - 2]; Table[ f[n], {n, 2, 34}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 10 2003
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Jun 11 2003
STATUS
approved