OFFSET
1,1
MATHEMATICA
$MaxExtraPrecision=8!; Select[Prime[Range[3*6! ]], PrimeQ[Floor[ #^GoldenRatio]]&&PrimeQ[Floor[GoldenRatio^# ]]&]
PROG
(PARI) phi=(1+sqrt(5))/2; forprime(p=2, 1e3, if(isprime(floor(p^phi)) && isprime(floor(phi^p)), print1(p", "))) \\ Charles R Greathouse IV, Jul 29 2011
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 17 2009
STATUS
approved