OFFSET
0,3
COMMENTS
Variant of A143217.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
MATHEMATICA
Table[n!*Sum[i!, {i, n}], {n, 0, 16}]
PROG
(Magma) [0] cat [Factorial(n)*&+[Factorial(k) : k in [1..n]] : n in [1..20]]; // Wesley Ivan Hurt, Jul 03 2020
(SageMath) f=factorial; [f(n)*sum(f(k) for k in (1..n)) for n in (0..40)] # G. C. Greubel, Jul 12 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Sep 28 2012
STATUS
approved