A293786 a(n) = n! * [x^n] exp(Sum_{j>=1} j^(n-1)*x^j).
1, 1, 5, 79, 3049, 281781, 62813281, 31485039139, 34744132717841, 87021427208179753, 478223788295847736801, 5632387976229387238588911, 146556226850373293041283537497, 8264489999577847335581419448796253, 987463694910250882031042208037752864641
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..76
Crossrefs
Main diagonal of A293785.
Programs
-
Mathematica
Table[n!*SeriesCoefficient[Exp[Sum[j^(n-1)*x^j, {j, 1, n}]], {x, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Oct 17 2017 *)
Formula
log(a(n)) ~ exp(-1) * n^2. - Vaclav Kotesovec, Oct 17 2017