login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A118484
Primes p such that the nearest integer to p * gamma is prime, where gamma is Euler's constant.
2
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
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
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 11 2009
STATUS
approved