A235213 Nearest prime to (2^(e^-gamma))^n, where gamma is the Euler-Mascheroni constant.
2, 3, 5, 7, 11, 17, 23, 31, 47, 73, 107, 157, 233, 347, 509, 743, 1103, 1627, 2399, 3541, 5227, 7717, 11383, 16811, 24799, 36599, 54011, 79699, 117619, 173573, 256163, 378041, 557891, 823309, 1215017, 1793081, 2646167, 3905059, 5762969, 8504759, 12550991, 18522269
Offset: 2
Links
- Eric W. Weisstein's World of Mathematics, Wagstaff's Conjecture
- Eric W. Weisstein's World of Mathematics, Eberhart's Conjecture
Programs
-
Mathematica
f[n_] := Block[{a = (2^Exp[-EulerGamma])^n}, Nearest[{NextPrime[a], NextPrime[a, -1]}, a][[1]]]; Array[f, 42, 2] -
PARI
a(n)=my(t=2^(exp(Euler)*n),mn=precprime(t),mx=nextprime(t)); if(mx-t
Comments