1,1

There is no further term up to 660000000.

236256594 is in the sequence because 236256594=(2+3+6+2+5+6+5+9+4)*prime(2*3*6*2*5*6*5*9*4).

Do[h = IntegerDigits[m]; l = Length[h]; If[Min[h] > 0 && m == Sum[h[[k]], {k, l}]*(Prime[Product[h[[k]], {k, l}]]), Print[m]], {m, 655000000}]

Cf. A097640.

Sequence in context: A032748 A092013 A046507 this_sequence A006028 A152005 A131907

Adjacent sequences: A110066 A110067 A110068 this_sequence A110070 A110071 A110072

more,nonn

Farideh Firoozbakht (f.firoozbakht(AT)math.ui.ac.ir), Jul 17 2005