|
%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
|
