[go: up one dir, main page]

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”).

A118625
Primes p such that the nearest integer to p * K is prime, where K is Catalan's constant.
2
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
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
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 11 2009
Typo in Mma program corrected by Vincenzo Librandi, Jun 15 2013
STATUS
approved