OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[2*10^6], PrimeQ[Fibonacci[#]]&&FindInstance[a^2+6b^2==Fibonacci[#], {a, b}, Integers]!={}&] (* Harvey P. Dale, Sep 18 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
V. Raman, Sep 08 2012
STATUS
approved