|
| |
|
|
A116671
|
|
Primes p such that the nearest integer to p * pi is prime.
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A062338 A143863 A158571
Adjacent sequences: A116668 A116669 A116670 * A116672 A116673 A116674
|
|
|
KEYWORD
| nonn,easy
|
|
|
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
|
| |
|
|
