|
Search: id:A116671
|
|
|
| A116671 |
|
Primes p such that the nearest integer to p * pi is prime. |
|
+0
1
|
|
| 13, 17, 31, 53, 71, 73, 101, 181, 197, 223, 229, 239, 241, 281, 311, 313, 353, 367, 491, 521, 607, 821, 859, 863, 919, 1129, 1217, 1303, 1381, 1427, 1471, 1583, 1667, 1721, 1723, 1753, 1811, 1877, 1879, 1933, 1979, 2017, 2063, 2089, 2221, 2399, 2441, 2447
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
floor (13pi + .5) = 41
floor (17pi + .5) = 53
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[Round[p*Pi]], AppendTo[lst, p]], {n, 10^3}]; lst
|
|
CROSSREFS
|
Sequence in context: A083983 A129338 A138535 this_sequence A062338 A143863 A158571
Adjacent sequences: A116668 A116669 A116670 this_sequence A116672 A116673 A116674
|
|
KEYWORD
|
nonn,easy,new
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 25 2008
|
|
EXTENSIONS
|
Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Nov 11 2009
|
|
|
Search completed in 0.002 seconds
|
