login
A118796
Primes p such that the nearest integer to p * A is prime, where A is the Glaisher-Kinkelin constant.
2
2, 13, 23, 29, 37, 41, 79, 107, 127, 149, 211, 239, 263, 313, 383, 389, 397, 439, 467, 509, 547, 631, 673, 743, 757, 773, 787, 827, 829, 907, 997, 1019, 1061, 1091, 1231, 1297, 1367, 1451, 1459, 1487, 1543, 1559, 1601, 1609, 1613, 1627, 1637, 1699, 1721
OFFSET
1,1
LINKS
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[Round[p*Glaisher]], AppendTo[lst, p]], {n, 10^3}]; lst
Select[Prime[Range[300]], PrimeQ[Round[Glaisher*#]]&] (* Harvey P. Dale, Dec 19 2016 *)
PROG
(PARI) A=exp(1/12-zeta'(-1)); forprime(p=2, 1e4, if(isprime(round(p*A)), print1(p", "))) \\ Charles R Greathouse IV, Dec 12 2013
CROSSREFS
Cf. A074962.
Sequence in context: A090519 A018540 A045388 * A234218 A171794 A243615
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 11 2009
STATUS
approved