OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Phi-Prime.
FORMULA
MATHEMATICA
Select[Table[Ceiling[GoldenRatio^n], {n, 20}], PrimeQ] (* James C. McMahon, Sep 15 2024 *)
PROG
(PARI) phi=(1+sqrt(5))/2; for(n=1, 1e4, if(ispseudoprime(t=ceil(phi^n)), print1(t", "))) \\ Charles R Greathouse IV, Jul 29 2011
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
Eric W. Weisstein, May 01 2006
STATUS
approved