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