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
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 17 2009
STATUS
approved