OFFSET
1,1
EXAMPLE
a(21) = 383 because A192140(21) = 747 = 3 * 83.
MATHEMATICA
f[n_] := FromDigits[Flatten[IntegerDigits /@ FactorInteger[n][[;; , 1]]]]; f /@ Select[Range[2, 20000], And @@ (PalindromeQ /@ {#, f[#]}) &] (* Amiram Eldar, Aug 06 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Jun 24 2011
EXTENSIONS
More terms from Amiram Eldar, Aug 06 2024
STATUS
approved