OFFSET
0,2
LINKS
Muniru A Asiru, Table of n, a(n) for n = 0..50
FORMULA
G.f.: Sum_{k>=0} x^k/(1 - k!*x). - Ilya Gutkovskiy, Oct 09 2018
log(a(n)) ~ log(n) * ((2*n+1)*log(n) - 2*n) * ((2*n*log(2*n-1) + 2*n*log(log(n)) - (2*n+1) * log(2*log(n)-1) - 2*n*(1+log(2))) / (4*(2*log(n)-1)^2)). - Vaclav Kotesovec, Oct 10 2018
EXAMPLE
a(5) = (0!)^5 + (1!)^4 + (2!)^3 + (3!)^2 + (4!)^1 + (5!)^0 = 1 + 1 + 8 + 36 + 24 + 1 = 71.
MAPLE
a:=n->add(factorial(k)^(n-k), k=0..n): seq(a(n), n=0..16); # Muniru A Asiru, Oct 09 2018
MATHEMATICA
Table[Sum[(k!)^(n-k), {k, 0, n}], {n, 0, 16}] (* Vaclav Kotesovec, Oct 09 2018 *)
PROG
(GAP) List([0..16], n->Sum([0..n], k->Factorial(k)^(n-k))); # Muniru A Asiru, Oct 09 2018
(Magma) [&+[Factorial(k)^(n-k): k in [0..n]]: n in [0..20]]; // Vincenzo Librandi, Oct 10 2018
(PARI) a(n) = sum(k=0, n, k!^(n-k)); \\ Michel Marcus, Oct 10 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Jul 31 2000
EXTENSIONS
a(15)-a(16) from Ilya Gutkovskiy, Oct 09 2018
STATUS
approved