A369698 - OEIS

%I #16 Jan 30 2024 06:25:17

%S 0,49,40824,96461056,571250390625,7338413252698641,

%T 181953686508203782144,7957561391610438862503936,

%U 572547082070592542500791107625,64157961305703333114506988525390625,10714350425499230222239742740718898118656,2571996060859292513876561308464753498396819456

%N AGM transform of positive cubes.

%C See A368366 for the description of the AGM transform.

%H Paolo Xausa, <a href="/A369698/b369698.txt">Table of n, a(n) for n = 1..120</a>

%F a(n) = A000537(n)^n - A000312(n)*A000442(n).

%t A369698[n_] := (n*(n+1)/2)^(2*n) - n^n*n!^3; Array[A369698, 15]

%o (Python)

%o from math import factorial

%o def A369698(n): return ((n*(n+1))**(m:=n<<1)>>m) - n**n*factorial(n)**3 # _Chai Wah Wu_, Jan 29 2024

%Y Cf. A368366, A368368.

%Y Cf. A000312, A000442, A000537.

%K nonn

%O 1,2

%A _Paolo Xausa_, Jan 29 2024