A118484 Primes p such that the nearest integer to p * gamma is prime, where gamma is Euler's constant.

3, 5, 19, 23, 29, 53, 71, 103, 127, 137, 179, 227, 241, 283, 313, 331, 397, 487, 491, 601, 647, 709, 751, 761, 809, 829, 881, 937, 947, 1051, 1069, 1093, 1229, 1259, 1301, 1319, 1381, 1423, 1433, 1453, 1489, 1571, 1579, 1609, 1693, 1787, 1789, 1901, 1997, 2029

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*EulerGamma]], AppendTo[lst, p]], {n, 10^3}]; lst

Crossrefs

Sequence in context: A299073 A329797 A180931 * A243898 A243900 A095826

Adjacent sequences: A118481 A118482 A118483 * A118485 A118486 A118487

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Aug 25 2008

Extensions

Edited by Charles R Greathouse IV, Nov 11 2009

Status

approved