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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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