OFFSET
1,1
EXAMPLE
649363946 = 2 * 7 * 11 * 83 * 101 * 503 -> Sum of factors is palindrome 707 -> 649363946 / 707 = 918478 exactly.
MATHEMATICA
palQ[n_]:= Reverse[x=IntegerDigits[n]] == x; t={}; Do[If[!PrimeQ[n] && And@@palQ/@{n, y=Total[Times@@@FactorInteger[n]]} && IntegerQ[n/y], AppendTo[t, n]], {n, 4, 6*10^6}]; t (* Jayanta Basu, Jun 05 2013 *)
pspfQ[n_]:=Module[{sf=Total[Times@@@FactorInteger[n]]}, CompositeQ[ n] && AllTrue[{n, sf}, PalindromeQ]&&IntegerQ[n/sf]]; Select[Range[ 2, 65*10^7], pspfQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 24 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Definition clarified by Harvey P. Dale, Nov 24 2019
STATUS
approved