A118625 Primes p such that the nearest integer to p * K is prime, where K is Catalan's constant.

2, 3, 5, 19, 47, 67, 73, 97, 139, 163, 211, 263, 281, 307, 379, 401, 433, 457, 479, 499, 503, 523, 569, 571, 641, 647, 719, 739, 811, 859, 883, 1187, 1193, 1259, 1289, 1409, 1423, 1427, 1499, 1571, 1619, 1637, 1663, 1787, 1879, 1901, 1907, 1951, 1999, 2089

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

Crossrefs

Sequence in context: A038705 A066754 A140560 * A031133 A352604 A235622

Adjacent sequences: A118622 A118623 A118624 * A118626 A118627 A118628

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Aug 25 2008

Extensions

Edited by Charles R Greathouse IV, Nov 11 2009

Typo in Mma program corrected by Vincenzo Librandi, Jun 15 2013

Status

approved