A370223 - OEIS

%I #17 Feb 17 2024 21:07:52

%S 0,0,10,865,155082,52802560,40048988817,71202718146816,

%T 315615332953930528,3574469013941010577249,

%U 104798469697184132865547168,7984603919946049180938300030976,1584983603576817306123611193840098529,820874582413458038007335015822715588591616

%N AGM transform of the positive Fibonacci numbers.

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

%H Paolo Xausa, <a href="/A370223/b370223.txt">Table of n, a(n) for n = 1..68</a>

%F a(n) = A000071(n+2)^n - A000312(n)*A003266(n).

%t A370223[n_] := (Fibonacci[n+2]-1)^n - n^n*Fibonorial[n]; Array[A370223, 15]

%o (Python)

%o from itertools import count, islice

%o def A370223_gen(): # generator of terms

%o     a, b, s, p = 1, 1, 0, 1

%o     for n in count(1):

%o         s += a

%o         p *= a

%o         yield s**n-n**n*p

%o         a, b = b, a+b

%o A370223_list = list(islice(A370223_gen(),10)) # _Chai Wah Wu_, Feb 16 2024

%Y Cf. A368366.

%Y Cf. A000045, A000071, A000312, A003266.

%K nonn

%O 1,3

%A _Paolo Xausa_, Feb 13 2024