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,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A100532 A231480 A040149 * A034970 A048417 A071710

Adjacent sequences: A168031 A168032 A168033 * A168035 A168036 A168037

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Nov 17 2009

Status

approved