A097653 Numbers n such that n=d_1!!+d_2!!+...+d_k!! where d_1 d_2 ... d_k is the decimal expansion of n.
1, 2, 3, 107
Offset: 1
Examples
107 is in the sequence because 1!!+0!!+7!!=1+1+7*5*3*1=107.
Programs
-
Mathematica
Do[h=IntegerDigits[n];l=Length[h];If[n==Sum[h[[k]]!!, {k, l}], Print[n]], {n, 4*9!!}]