1,2
There is no further term up to 2*10^9.
6931848=56*123783=sigma(6+9+3+1+8+4+8)*sigma(6*9*3*1*8*4*8).
Do[h=IntegerDigits[n]; s=Apply[Plus, h]; p=Apply[Times, h]; If[n== DivisorSigma[1, s]*DivisorSigma[1, p], Print[n]], {n, 2000000000}]
Cf. A038369.
Sequence in context: A159951 A013862 A116233 * A175906 A144546 A165970
Adjacent sequences: A145742 A145743 A145744 * A145746 A145747 A145748
base,more,nonn
Farideh Firoozbakht (mymontain(AT)yahoo.com), Oct 26 2008
