This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A097653 #4 Mar 30 2012 17:37:42
%S A097653 1,2,3,107
%N 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.
%e A097653 107 is in the sequence because 1!!+0!!+7!!=1+1+7*5*3*1=107.
%t A097653 Do[h=IntegerDigits[n];l=Length[h];If[n==Sum[h[[k]]!!, {k, l}], Print[n]], {n, 4*9!!}]
%Y A097653 Cf. A097654, A097655, A097643.
%K A097653 base,fini,full,nonn
%O A097653 1,2
%A A097653 _Farideh Firoozbakht_, Sep 10 2004