A137603 Numbers m such that product of factorials of digits of m equals sigma(m).
1, 14, 1253, 2261, 2622, 13145, 13630, 20146, 24035, 30362, 31416, 42504, 50424, 63240, 112281, 117124, 126005, 150360, 161160, 225153, 252126, 262105, 318021, 341630, 510632, 611523, 723104, 1071521, 1131190, 1153262, 1200626, 1242108
Offset: 1
Examples
sigma(10230248)=1!*0!*2!*3!*0!*2!*4!*8! so 10230248 is in the sequence.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[1250000],Times@@(IntegerDigits[#]!)==DivisorSigma[1,#]&] (* James C. McMahon, Jun 01 2025 *)