OFFSET
1,2
COMMENTS
a(7) if it exists is greater than 250000. - Mark Rodenkirch, Feb 22 2020
LINKS
Eric Weisstein's World of Mathematics, Phi-Prime
MATHEMATICA
Select[Range[20], PrimeQ[Ceiling[GoldenRatio^#]]&] (* James C. McMahon, Sep 14 2024 *)
PROG
(PARI) c(n) = 3*fibonacci(n-1) + fibonacci(n-2) + (n % 2); \\ A169986(n) for n >= 1
for(n=1, 10^7, if(ispseudoprime(c(n)), print1(n, ", ")))
\\ Joerg Arndt, Feb 22 2020
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Eric W. Weisstein, May 01 2006
EXTENSIONS
a(7)-a(8) from Charles R Greathouse IV, Jul 30 2011
a(9)-a(11) from Charles R Greathouse IV, Aug 01 2011
Incorrect a(7)-a(11) removed by Mark Rodenkirch, Feb 22 2020
STATUS
approved