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 A073575 #11 Dec 19 2018 15:04:40
%S A073575 1,3,1,3,1,9,1,3,1,3,1,9,1,3,1,3,1,9,1,3,1,3,1,33,1,3,1,3,1,9,1,3,1,3,
%T A073575 1,9,1,3,1,3,1,9,1,3,1,3,1,33,1,3,1,3,1,9,1,3,1,3,1,9,1,3,1,3,1,9,1,3,
%U A073575 1,3,1,33,1,3,1,3,1,9,1,3,1,3,1,9,1,3,1,3,1,9,1,3,1,3,1,33,1,3,1,3,1,9
%N A073575 Sum of factorial numbers dividing n.
%H A073575 Antti Karttunen, <a href="/A073575/b073575.txt">Table of n, a(n) for n = 1..10079</a>
%F A073575 G.f.: Sum_{k>0} k!*x^(k!)/(1-x^(k!)). - _Vladeta Jovovic_, Dec 13 2002
%F A073575 a(n) = A007489(A055881(n)). - _Antti Karttunen_, Dec 19 2018
%t A073575 Table[Total[Select[Table[i!, {i, n}], Divisible[n, #] &]], {n, 102}] (* _Jayanta Basu_, Jul 01 2013 *)
%o A073575 (PARI) A073575(n) = { my(m=1, i=2, s=0); while(!(n%m), s += m; m *= i; i++); return(s); } \\ _Antti Karttunen_, Dec 19 2018
%Y A073575 Cf. A000142, A007489, A055770, A055881, A007489.
%K A073575 nonn
%O A073575 1,2
%A A073575 _Vladeta Jovovic_, Aug 27 2002