OFFSET
0,1
EXAMPLE
8582203 = 7^3 * 131 * 191 -> Sum of factors is 343 -> 8582203 / 343 = 25021 exactly.
MATHEMATICA
palQ[n_]:=Reverse[x=IntegerDigits[n]]==x; t={}; Do[If[!PrimeQ[n]&&And@@palQ/@Join[{y=Total[Times@@@(x=FactorInteger[n])]}, First/@x]&&IntegerQ[n/y], AppendTo[t, n]], {n, 9, 6*10^6, 2}]; t (* Jayanta Basu, Jun 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved