login
Fibonacci numbers that produce primes when their digits are reversed.
1

%I #11 May 11 2023 14:16:17

%S 2,3,5,13,34,377,1597,10946,75025,121393,17167680177565,

%T 135301852344706746049,1672445759041379840132227567949787325,

%U 3691087032412706639440686994833808526209

%N Fibonacci numbers that produce primes when their digits are reversed.

%t okQ[n_]:=PrimeQ[FromDigits[Reverse[IntegerDigits[n]]]]; Select[ Fibonacci[ Range[500]],okQ]

%t Select[Fibonacci[Range[500]],PrimeQ[IntegerReverse[#]]&] (* _Harvey P. Dale_, Oct 16 2021 *)

%Y Cf. A036971. [_T. D. Noe_, Mar 19 2010]

%K base,nice,nonn

%O 1,1

%A _Harvey P. Dale_, Feb 14 2010