A110069 Numbers n such that n = (d_1 + d_2 + ... + d_k)*prime(d_1*d_2*...*d_k) where d_1 d_2 ... d_k is the decimal expansion of n.
188217, 216925, 329319, 22146969, 236256594, 269226639788
Offset: 1
Examples
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).
Programs
-
Mathematica
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}]
Extensions
a(6) from Giovanni Resta, Jun 01 2020
Comments