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

2, 3, 5, 7, 17, 43, 59, 61, 109, 229, 263, 269, 419, 443, 457, 617, 997, 1069, 1301, 1373, 1483, 1523, 1543, 1801, 1877, 1949, 2053, 2269, 2309, 2411, 2503, 2551, 2633, 2731, 2741, 2887, 2963, 3023, 3181, 3323, 3359, 3571, 3607, 3673, 4129, 4153, 4423, 4483

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Nov 17 2009

Keywords

• nonn

Links

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

Programs

Mathematica

$MaxExtraPrecision=6!; Select[Prime[Range[5! ]],PrimeQ[Floor[ #^GoldenRatio]]&]

PARI

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