login
A309472
a(n) = n^n - n * n!.
0
1, 0, 0, 9, 160, 2525, 42336, 788263, 16454656, 384154569, 9963712000, 284872585811, 8910352429056, 302794155321853, 11110786329481216, 437874275265339375, 18446409309071343616, 827234215200059132177, 39346292832569834471424, 1978417344403405821315979
OFFSET
0,4
FORMULA
a(n) = A000312(n) - A001563(n).
E.g.f.: - x/(-1 + x)^2 + 1/(1 + W(-x)), where W(x) is the principal branch of Lambert's function. - Stefano Spezia, Sep 08 2019
MATHEMATICA
Array[#^# - # #! &, 20] (* Michael De Vlieger, Sep 29 2019 *)
PROG
(PARI) a(n) = n^n - n*n!; \\ Michel Marcus, Aug 05 2019
CROSSREFS
Sequence in context: A230180 A361047 A360777 * A060348 A365016 A367163
KEYWORD
nonn,easy
AUTHOR
Francesco Scavello, Aug 04 2019
STATUS
approved