A118842 Primes of the form ceiling(phi^k).
2, 3, 5, 7, 47, 2207
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Phi-Prime.
Crossrefs
Cf. A118841.
Programs
-
Mathematica
Select[Table[Ceiling[GoldenRatio^n],{n,20}],PrimeQ] (* James C. McMahon, Sep 15 2024 *) -
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