OFFSET

1,1

COMMENTS

We get 2, 23, 23234, 23234232342345 and so on. The lengths are 1,2,5,14,42,... which are the Catalan numbers: A000108. The sums of the numbers in these strings are also the Catalan numbers.

In A071159 the n-digit terms follow the 2, 3, 2, 3, 4, ... rule: the number of terms in which the first n-1 digits are the same is 2, 3, 2, 3, 4, ... and the last digits of the terms are 1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3, 4, ..., A007001. For example, 1111, 1112, 1121, 1122, 1123, 1211, 1212, 1221, 1222, 1223, 1231, 1232, 1233, 1234.

Let (T(1) < T(2) < ... < T(A000108(m))) denote the sequence of Young tableaux of shape (2^m) ordered lexicographically with respect to their columns, and let f(T(i), T(j)) denote the first label of disagreement among T(i) and T(j). Then, empirically, the reverse of the list (f(T(1), T(2)), f(T(1), T(3)), ..., f(T(1), T(A000108(m)))) agrees with the first A000108(m) - 1 terms in this sequence, for all m > 1, as illustrated in the below example. - John M. Campbell, Sep 07 2018

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Italo J. Dejter, The role of restricted growth strings in the two middle levels of the Boolean lattice B_(2k+1), University of Puerto Rico, 2018.

Italo J. Dejter, Reinterpreting Mütze's Theorem via Natural Enumeration of Ordered Rooted Trees, arXiv:1911.02100 [math.CO], 2019.

FORMULA

a(n) = A007001(n) + 1.

EXAMPLE

From John M. Campbell, Sep 07 2018: (Start)

There are A000108(3) = 5 Young tableaux of shape (2^3) = (2, 2, 2), which are listed below lexicographically.

[3 6] [4 6] [4 6] [5 6] [5 6]

[2 5] < [2 5] < [3 5] < [2 4] < [3 4]

[1 4] [1 3] [1 2] [1 3] [1 2]

As above, let (T(1), T(2), ..., T(5)) denote this list. The first label of disagreement between T(1) and T(5) is 2; that between T(1) and T(4) is 3; that between T(1) and T(3) is 2; that between T(1) and T(2) is 3. The sequence (2, 3, 2, 3) agrees with the first 4 terms in this sequence. If we repeat this process using Young tableaux of shape (2^4), we obtain the sequence (2, 3, 2, 3, 4, 2, 3, 2, 3, 4, 2, 3, 4). (End)

MATHEMATICA

Nest[Flatten[Map[Range[2, #+1] &, #]] &, {2}, 5] (* Paolo Xausa, Mar 04 2024 *)

PROG

(PARI) a(n)=local(v, w); if(n<1, 0, v=[1]; while(#v<n, w=[]; for(i=1, #v, w=concat(w, vector(v[i]+1, j, j))); v=w); 1+v[n])

(Haskell)

a076050 n = a076050_list !! (n-1)

a076050_list = 2 : f [2] where

f xs = (drop (length xs) xs') ++ (f xs') where

xs' = concatMap ((enumFromTo 2) . (+ 1)) xs

-- Reinhard Zumkeller, Feb 17 2012

CROSSREFS

KEYWORD

easy,nonn

AUTHOR

Miklos Kristof, Oct 30 2002

STATUS

approved