The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 3 17:13 EDT 2021. Contains 346439 sequences. (Running on oeis4.)