A168035 Primes p for which floor(p^phi) and floor(phi^p) are prime.

2, 5, 7, 17, 61, 617, 7741, 10691

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Nov 17 2009

Keywords

• nonn
• less

Crossrefs

Intersection of A168033 and A168034.

Programs

Mathematica

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

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