|
| |
|
|
A368367
|
|
AGM transform of factorials.
|
|
3
|
|
|
|
0, 1, 405, 1112193, 83733135993, 442674314320893489, 252729042985343953175786217, 20874524971928676951126081870191637441, 321062452616441231930929630956482460885924054669273, 1152310647749051621143585533734466768135769634034830754169423308849
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
COMMENTS
|
See A368366 for further information.
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
A368367[n_] := With[{f = Range[n]!}, Total[f]^n - n^n*Apply[Times, f]];
|
|
|
PROG
|
(Python)
from math import prod, factorial
def A368367(n): return sum(factorial(i) for i in range(1, n+1))**n-n**n*prod(i**(n-i+1) for i in range(2, n+1)) # Chai Wah Wu, Jan 25 2024
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
