A118796 Primes p such that the nearest integer to p * A is prime, where A is the Glaisher-Kinkelin constant.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A118793 A118794 A118795 * A118797 A118798 A118799

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Aug 25 2008

Extensions

Edited by Charles R Greathouse IV, Nov 11 2009

Status

approved