A116968 Primes p such that the nearest integer to p * e is prime.

2, 7, 29, 37, 71, 113, 163, 179, 199, 227, 283, 439, 463, 503, 541, 547, 647, 733, 761, 823, 839, 887, 953, 1031, 1049, 1051, 1093, 1327, 1399, 1549, 1627, 1741, 1847, 1861, 1901, 1951, 2017, 2053, 2081, 2179, 2221, 2287, 2309, 2399, 2477, 2591, 2689, 2711

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

Crossrefs

Sequence in context: A059803 A076043 A180448 * A162172 A274682 A359633

Adjacent sequences: A116965 A116966 A116967 * A116969 A116970 A116971

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Aug 25 2008

Extensions

Edited by Charles R Greathouse IV, Nov 11 2009

Status

approved