%I #4 Mar 30 2012 17:37:42
%S 1,2,3,107
%N Numbers n such that n=d_1!!+d_2!!+...+d_k!! where d_1 d_2 ... d_k is the decimal expansion of n.
%e 107 is in the sequence because 1!!+0!!+7!!=1+1+7*5*3*1=107.
%t Do[h=IntegerDigits[n];l=Length[h];If[n==Sum[h[[k]]!!, {k, l}], Print[n]], {n, 4*9!!}]
%Y Cf. A097654, A097655, A097643.
%K base,fini,full,nonn
%O 1,2
%A _Farideh Firoozbakht_, Sep 10 2004