Voozh

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

(list; graph; refs; listen; history; text; internal format)

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