

A168033


Primes p for which floor(phi^p) is prime.


1



2, 5, 7, 11, 13, 17, 19, 31, 37, 41, 47, 53, 61, 71, 79, 113, 313, 353, 503, 613, 617, 863, 1097, 1361, 4787, 4793, 5851, 7741, 8467, 10691, 12251, 13963
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Primes in A059791. [Charles R Greathouse IV, Jul 29 2011]


LINKS

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


MATHEMATICA

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


PROG

(PARI) phi=(1+sqrt(5))/2; forprime(p=2, 1e3, if(isprime(floor(phi^p)), print1(p", "))) \\ Charles R Greathouse IV, Jul 29 2011


CROSSREFS

Sequence in context: A020619 A165439 A228200 * A020591 A197188 A182320
Adjacent sequences: A168030 A168031 A168032 * A168034 A168035 A168036


KEYWORD

nonn


AUTHOR

Vladimir Joseph Stephan Orlovsky, Nov 17 2009


EXTENSIONS

a(22)a(32) from Charles R Greathouse IV, Jul 29 2011


STATUS

approved



