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 this_sequence A144546 A165970 A081357

Adjacent sequences: A145742 A145743 A145744 this_sequence A145746 A145747 A145748

base,more,nonn

Farideh Firoozbakht (mymontain(AT)yahoo.com), Oct 26 2008