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: A092013 A046507 A151422 this_sequence A006028 A131907 A013901

Adjacent sequences: A110066 A110067 A110068 this_sequence A110070 A110071 A110072

more,nonn

Farideh Firoozbakht (mymontain(AT)yahoo.com), Jul 17 2005