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 A071123 #5 Oct 15 2013 22:31:20 %S A071123 1,3,9,15,18,27,36,45,72,99,135,162,189,234,279,342,405,459,504,558, %T A071123 621,693,792,873,945,1026,1134,1224,1350,1467,1602,1710,1854,1998, %U A071123 2142,2313,2466,2574,2763,2952,3096,3285,3465,3681,3888,4104,4329,4563,4788 %N A071123 a(n) = a(n-1) + sum of decimal digits of n!. %t A071123 s=0; Do[s=s+Apply[Plus, IntegerDigits[n! ]]; Print[s], {n, 1, 128}] %Y A071123 Cf. A037123, A000788, A051351. %K A071123 base,easy,nonn %O A071123 1,2 %A A071123 _Labos Elemer_, May 27 2002