OFFSET
1,1
EXAMPLE
a(13) = 313 because A192137(13) = 39 = 3 * 13.
MATHEMATICA
f[n_] := FromDigits[Flatten[IntegerDigits /@ FactorInteger[n][[;; , 1]]]]; Select[f /@ Range[2, 1900], PalindromeQ] (* 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