A368367 AGM transform of factorials.

0, 1, 405, 1112193, 83733135993, 442674314320893489, 252729042985343953175786217, 20874524971928676951126081870191637441, 321062452616441231930929630956482460885924054669273, 1152310647749051621143585533734466768135769634034830754169423308849

Offset: 1

Author

N. J. A. Sloane, Jan 24 2024

Keywords

• nonn

Comments

See A368366 for further information.

Links

• Paolo Xausa, Table of n, a(n) for n = 1..30

Crossrefs

Cf. A000142, A368366.

Programs

Mathematica

A368367[n_] := With[{f = Range[n]!}, Total[f]^n - n^n*Apply[Times, f]];
Array[A368367, 10] (* Paolo Xausa, Jan 29 2024 *)

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