cp's OEIS Frontend

A179752 Maximum depth of parenthesizations encoded by A014486, or correspondingly, maximum height for the equivalent general trees.

%I A179752 #19 Mar 05 2024 05:10:21
%S A179752 0,1,1,2,1,2,2,2,3,1,2,2,2,3,2,2,2,2,3,3,3,3,4,1,2,2,2,3,2,2,2,2,3,3,
%T A179752 3,3,4,2,2,2,2,3,2,2,2,2,3,3,3,3,4,3,3,3,3,3,3,3,3,4,4,4,4,4,5,1,2,2,
%U A179752 2,3,2,2,2,2,3,3,3,3,4,2,2,2,2,3,2,2,2,2,3,3,3,3,4,3,3,3,3,3,3,3,3,4
%N A179752 Maximum depth of parenthesizations encoded by A014486, or correspondingly, maximum height for the equivalent general trees.
%C A179752 Each integer n appears first at position given by A014138.
%H A179752 Antti Karttunen, <a href="/A179752/b179752.txt">Table of n, a(n) for n = 0..2055</a>
%e A179752 The terms A014486[1..8] encode the following rooted plane general trees:
%e A179752 .1.......2.......3.......4.......5.......6.......7.......8.
%e A179752 ...........................................................
%e A179752 .........................................................o.
%e A179752 .........................................................|.
%e A179752 .................o.................o...o.......o...o.....o.
%e A179752 .................|.................|...|........\./......|.
%e A179752 .o.....o...o.....o.....o.o.o...o...o...o...o.....o.......o.
%e A179752 .|......\./......|......\|/.....\./.....\./......|.......|.
%e A179752 .*.......*.......*.......*.......*.......*.......*.......*.
%e A179752 and the corresponding parenthesizations:
%e A179752 .().....()()....(())...()()()..()(())..(())()..(()())..((()))
%e A179752 thus a(1)=1, a(2)=1, a(3)=2, a(4)=1, a(5)=2, a(6)=2, a(7)=2, a(8)=3.
%t A179752 blist[m_] := Select[Map[Accumulate, Permutations[PadLeft[Table[1, m], 2*m, -1]]], Min[#] >= 0 &]; Join[{{0}}, Array[Map[Max, blist[#]] &, 6]] (* _Paolo Xausa_, Mar 04 2024 *)
%Y A179752 Cf. A179751, A126303, A126304, A080237, A085197.
%K A179752 nonn,base
%O A179752 0,4
%A A179752 _Antti Karttunen_, Aug 03 2010