A216569 Numbers n such that the n-th Fibonacci number is prime and can be written in the form a^2 + 6*b^2.
23, 47, 359, 431, 433, 9311, 25561, 35999, 37511, 50833, 81839, 590041, 593689, 1285607, 1636007, 1968721
Offset: 1
Keywords
Links
- Blair Kelly, Factorizations of Fibonacci and Lucas numbers
Programs
-
Mathematica
Select[Range[2*10^6],PrimeQ[Fibonacci[#]]&&FindInstance[a^2+6b^2==Fibonacci[#],{a,b},Integers]!={}&] (* Harvey P. Dale, Sep 18 2019 *)