OFFSET
2,1
COMMENTS
The nearest integer to (2^(e^-gamma))^n is very close to A018133.
LINKS
Eric W. Weisstein's World of Mathematics, Wagstaff's Conjecture
Eric W. Weisstein's World of Mathematics, Eberhart's Conjecture
MATHEMATICA
f[n_] := Block[{a = (2^Exp[-EulerGamma])^n}, Nearest[{NextPrime[a], NextPrime[a, -1]}, a][[1]]]; Array[f, 42, 2]
PROG
(PARI) a(n)=my(t=2^(exp(Euler)*n), mn=precprime(t), mx=nextprime(t)); if(mx-t<t-mn, mx, mn) \\ Charles R Greathouse IV, Jan 04 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Jan 04 2014
STATUS
approved