OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10079
FORMULA
G.f.: Sum_{k>0} k!*x^(k!)/(1-x^(k!)). - Vladeta Jovovic, Dec 13 2002
MATHEMATICA
Table[Total[Select[Table[i!, {i, n}], Divisible[n, #] &]], {n, 102}] (* Jayanta Basu, Jul 01 2013 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Aug 27 2002
STATUS
approved