OFFSET
1,1
COMMENTS
Primes in A059791. - Charles R Greathouse IV, Jul 29 2011
Also primes in A001606. - Michel Marcus, Oct 21 2016
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
(Magma) [p: p in PrimesUpTo(2000)| IsPrime(Lucas(p))]; // Vincenzo Librandi, Jul 11 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 17 2009
EXTENSIONS
a(22)-a(32) from Charles R Greathouse IV, Jul 29 2011
More terms (using A001606) from Joerg Arndt, Jul 11 2019
STATUS
approved