OFFSET
0,4
COMMENTS
a(n) is the sum of proper divisors of factorial number A000142(n).
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..500
MAPLE
with(numtheory): seq(sigma(factorial(n))-factorial(n), n = 0 .. 22); # Emeric Deutsch, Jan 07 2009
MATHEMATICA
Table[DivisorSigma[1, n!] - n!, {n, 0, 50}] (* G. C. Greubel, Aug 30 2016 *)
PROG
(Magma) [DivisorSigma(1, Factorial(n)) - Factorial(n): n in [0..20]]; // Vincenzo Librandi, Aug 31 2016
(PARI) a(n) = sigma(n!) - n!; \\ Michel Marcus, Aug 31 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 02 2009
EXTENSIONS
Extended by Emeric Deutsch, Jan 07 2009
STATUS
approved