%I
%S 4,5445,234432,585585,888888,951159,999999,1345431,2554552,4620264,
%T 5842485,6151516,9704079,12333321,40199104,42266224,42666624,44088044,
%U 46355364,63599536,63633636,420838024,424848424,631949136,649363946
%N Palindromes divisible by the palindromic sum of their prime factors (counted with multiplicity).
%e 649363946 = 2 * 7 * 11 * 83 * 101 * 503 > Sum of factors is palindrome 707 > 649363946 / 707 = 918478 exactly.
%t 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 *)
%Y Cf. A046358, A046359.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Jun 15 1998.
