A168032 Primes p for which floor(p*phi) is prime, where phi is the golden ratio.

2, 7, 11, 23, 37, 79, 101, 107, 131, 149, 163, 227, 241, 283, 311, 353, 367, 379, 383, 409, 419, 457, 487, 509, 613, 661, 719, 761, 797, 971, 997, 1049, 1279, 1321, 1373, 1447, 1451, 1453, 1483, 1531, 1613, 1699, 1861, 1877, 2011, 2039, 2069, 2137, 2143

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Select[Prime[Range[6! ]], PrimeQ[Floor[GoldenRatio*# ]]&]

Prog

(PARI) phi=(1+sqrt(5))/2; forprime(p=2, 1e5, if(isprime(floor(p*phi)), print1(p", "))) \\ Charles R Greathouse IV, Jul 29 2011

Crossrefs

Cf. A001622 (phi).

Sequence in context: A075431 A184799 A045374 * A329309 A217304 A179876

Adjacent sequences: A168029 A168030 A168031 * A168033 A168034 A168035

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Nov 17 2009

Status

approved