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
Search completed in 0.002 seconds