%I #6 May 13 2013 01:54:11
%S 2,3,5,7,17,43,59,61,109,229,263,269,419,443,457,617,997,1069,1301,
%T 1373,1483,1523,1543,1801,1877,1949,2053,2269,2309,2411,2503,2551,
%U 2633,2731,2741,2887,2963,3023,3181,3323,3359,3571,3607,3673,4129,4153,4423,4483
%N Primes p for which floor(p^phi) is prime, where phi is the golden ratio.
%H Charles R Greathouse IV, <a href="/A168034/b168034.txt">Table of n, a(n) for n = 1..10000</a>
%t $MaxExtraPrecision=6!; Select[Prime[Range[5! ]],PrimeQ[Floor[ #^GoldenRatio]]&]
%o (PARI) phi=(1+sqrt(5))/2;forprime(p=2,1e4,if(isprime(floor(p^phi)),print1(p", "))) \\ _Charles R Greathouse IV_, Jul 29 2011
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Nov 17 2009