

A168034


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



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



KEYWORD

nonn


AUTHOR



STATUS

approved



