OFFSET
1,2
COMMENTS
Original definition: a(n) = G(n) - A(n), where G(n) = Sum of the first n terms of a geometric progression with first term n and common ratio n. A(n) = Product of first n terms of an arithmetic progression with first term n and common difference n.
MAPLE
seq(`if`(n=1, 0, n!*n^n - ((n^(n+1)-1)/(n-1) - 1)), n=1..16); # Georg Fischer, Dec 09 2022
PROG
(PARI) a(n) = if (n==1, 0, n!*n^n - ((n^(n+1)-1)/(n-1) - 1)); \\ Michel Marcus, Dec 10 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 20 2003
EXTENSIONS
Corrected and extended by David Wasserman, Jun 27 2005
Edited by M. F. Hasler, Feb 12 2013
Formula negated by Georg Fischer, Dec 09 2022
STATUS
approved