OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[693000], PrimeQ[LucasL[#]]&&Length[Solve[{a^2+3b^2==LucasL[#], a>=0, b>=0}, {a, b}, Integers]]>0&] (* Harvey P. Dale, Apr 19 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
V. Raman, Sep 08 2012
STATUS
approved