|
|
A259926
|
|
a(n) = n^(2*n) - n^(2*n - 1).
|
|
0
|
|
|
0, 8, 486, 49152, 7812500, 1813985280, 581334062442, 246290604621824, 133417453597332552, 90000000000000000000, 74002499442581601012110, 72872109936441607122321408, 84676920178401799992368876316, 114656931713301654695784797437952, 178967655284025147557258605957031250
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = n! * [x^n] LambertW(-n*x)^2 / (1 + LambertW(-n*x)). - Ilya Gutkovskiy, Mar 24 2020
|
|
MATHEMATICA
|
Table[n^(2 n) - n^(2 n - 1), {n, 15}]
|
|
PROG
|
(PARI) vector(20, n, n^(2*n) - n^(2*n-1)) \\ Michel Marcus, Jul 09 2015
(Sage) [n**(2*n) - n**(2*n - 1) for n in range(1, 20)] # Anders Hellström, Jul 10 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|