OFFSET
1,1
MATHEMATICA
okQ[n_]:=PrimeQ[FromDigits[Reverse[IntegerDigits[n]]]]; Select[ Fibonacci[ Range[500]], okQ]
Select[Fibonacci[Range[500]], PrimeQ[IntegerReverse[#]]&] (* Harvey P. Dale, Oct 16 2021 *)
CROSSREFS
KEYWORD
base,nice,nonn
AUTHOR
Harvey P. Dale, Feb 14 2010
STATUS
approved