%I A145745
%S A145745 1,12,6266169,6931848
%N A145745 Numbers n such that n=sigma(sum of digits of n)*sigma(product of digits 
               of n).
%C A145745 There is no further term up to 2*10^9.
%e A145745 6931848=56*123783=sigma(6+9+3+1+8+4+8)*sigma(6*9*3*1*8*4*8).
%t A145745 Do[h=IntegerDigits[n]; s=Apply[Plus,h];p=Apply[Times,h];If[n== DivisorSigma[1,
               s]*DivisorSigma[1,p],Print[n]],{n,2000000000}]
%Y A145745 Cf. A038369.
%Y A145745 Sequence in context: A159951 A013862 A116233 this_sequence A144546 A165970 
               A081357
%Y A145745 Adjacent sequences: A145742 A145743 A145744 this_sequence A145746 A145747 
               A145748
%K A145745 base,more,nonn
%O A145745 1,2
%A A145745 Farideh Firoozbakht (mymontain(AT)yahoo.com), Oct 26 2008