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

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

Offset

1,1

Links

Table of n, a(n) for n=1..8.

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

Intersection of A168033 and A168034.

Sequence in context: A303677 A303802 A045357 * A247323 A099357 A306918

Adjacent sequences: A168032 A168033 A168034 * A168036 A168037 A168038

Keyword

nonn,less

Author

Vladimir Joseph Stephan Orlovsky, Nov 17 2009

Status

approved