OFFSET
1,1
EXAMPLE
60297 = 3 * 101 * 199 -> Sum of factors is palindrome 303 -> 60297 / 303 = 199 exactly.
MATHEMATICA
palQ[n_]:= Reverse[x=IntegerDigits[n]] == x; Select[Range[9, 175549, 2], !PrimeQ[#] && palQ[y=Total[Times@@@FactorInteger[#]]] && IntegerQ[#/y]&] (* Jayanta Basu, Jun 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Offset 1 from Michel Marcus, Oct 18 2019
STATUS
approved