login
Numbers n such that n=d_1!!+d_2!!+...+d_k!! where d_1 d_2 ... d_k is the decimal expansion of n.
7

%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