A376768 - OEIS

%I #14 Dec 16 2024 08:47:00

%S 2,5,11,221,24311,1182000821,698562969831336611,

%T 975980445639153806859347417915257421,

%U 476268915135000629546288739757931900755190480621127468115605921390156911

%N a(1) = 2; thereafter, a(n) = c*A376767(n-1) + 1, where c=4 if n is even, c=2 if n is odd.

%C This is the sequence of dampening coefficients for the divergent series 1 + 2 + 1 + 2 + 1 + 2 + ...

%H Paolo Xausa, <a href="/A376768/b376768.txt">Table of n, a(n) for n = 1..12</a>

%H N. J. A. Sloane, <a href="https://www.youtube.com/watch?v=3RAYoaKMckM">A Nasty Surprise in a Sequence and Other OEIS Stories</a>, Experimental Mathematics Seminar, Rutgers University, Oct 10 2024, Youtube video; <a href="https://sites.math.rutgers.edu/~zeilberg/expmath/sloane85BD.pdf">Slides</a>

%t A376767[n_] := A376767[n] = If[n == 1, 1, If[OddQ[n], 2, 4]*#^2 + # & [A376767[n-1]]];

%t A376768[n_] := If[n == 1, 2, If[OddQ[n], 2, 4]*A376767[n-1] + 1];

%t Array[A376768, 10] (* _Paolo Xausa_, Dec 16 2024 *)

%Y Cf. A374663, A376767.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Nov 03 2024

%E Definition corrected by _N. J. A. Sloane_, Dec 15 2024 - thanks to _Paolo Xausa_ for noticing the error.