login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A368367
AGM transform of factorials.
3
0, 1, 405, 1112193, 83733135993, 442674314320893489, 252729042985343953175786217, 20874524971928676951126081870191637441, 321062452616441231930929630956482460885924054669273, 1152310647749051621143585533734466768135769634034830754169423308849
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]];
Array[A368367, 10] (* Paolo Xausa, Jan 29 2024 *)
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
Sequence in context: A285924 A285860 A151634 * A132362 A371900 A348185
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 24 2024
STATUS
approved