A117763 Primes p such that the nearest integer to p * phi is a prime, where phi is the golden ratio.

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

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

Crossrefs

Sequence in context: A073641 A273006 A352538 * A165571 A178954 A138111

Adjacent sequences: A117760 A117761 A117762 * A117764 A117765 A117766

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Aug 25 2008

Extensions

Edited by Charles R Greathouse IV, Nov 11 2009

Status

approved