OFFSET
1,1
COMMENTS
MATHEMATICA
g[n_]:=2^n+2*n-1; Select[Array[g, 100], PrimeQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 11 2010
STATUS
approved