A379795 - OEIS

%I #22 Feb 05 2025 17:52:49

%S 2,3,3,5,5,10,13,9,11,11,13,13,15,15,17,17,38,21,21,23,23,25,26,26,28,

%T 29,29,29,32,4,28,3,31,34,36,36,2,36,38,2,38,3,38,41,43,43,45,45,46,

%U 48,3,46,3,46,51,51,53,52,3,53,55,114,59,59,61,61,63,63,65,65,70,133,69,71,71,73,73,75,75,154,79,79,81,164,83,85

%N Length of n-th block of consecutive positive terms in A377091.

%H Rémy Sigrist, <a href="/A379795/b379795.txt">Table of n, a(n) for n = 1..5000</a>

%H Rémy Sigrist, <a href="/A379795/a379795.txt">C++ program</a>

%F a(n) = A379790(n) - A379788(n) + 1.

%F a(n) = A379882(2*n). - _Rémy Sigrist_, Jan 19 2025

%t (* A377091list is defined at A377091 *)

%t Map[Length, SplitBy[A377091list[10000], Sign][[2 ;; -2 ;; 2]]] (* _Paolo Xausa_, Feb 05 2025 *)

%o (C++) // See Links section.

%Y Cf. A377091, A379066, A379788, A379789, A379790, A379791, A379792, A379793, A379794, A379796, A379882, A380837.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Jan 18 2025