|
| |
|
|
A117763
|
|
Primes p such that the nearest integer to p * phi is a prime, where phi is the golden ratio.
|
|
1
| |
|
|
2, 3, 7, 19, 23, 29, 97, 101, 103, 107, 149, 181, 227, 311, 353, 379, 433, 457, 563, 631, 719, 761, 883, 919, 941, 971, 997, 1049, 1087, 1223, 1279, 1291, 1297, 1321, 1427, 1447, 1453, 1531, 1627, 1699, 1831, 1861, 1877, 2039, 2143, 2207, 2213, 2239, 2269
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; If[PrimeQ[Round[p*GoldenRatio]], AppendTo[lst, p]], {n, 10^3}]; lst
|
|
|
CROSSREFS
| Sequence in context: A160181 A143874 A073641 * A165571 A178954 A138111
Adjacent sequences: A117760 A117761 A117762 * A117764 A117765 A117766
|
|
|
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
|
| |
|
|
