This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A007001 M0108 #56 Feb 21 2021 14:13:10 %S A007001 1,2,1,2,3,1,2,1,2,3,1,2,3,4,1,2,1,2,3,1,2,1,2,3,1,2,3,4,1,2,1,2,3,1, %T A007001 2,3,4,1,2,3,4,5,1,2,1,2,3,1,2,1,2,3,1,2,3,4,1,2,1,2,3,1,2,1,2,3,1,2, %U A007001 3,4,1,2,1,2,3,1,2,3,4,1,2,3,4,5,1,2,1,2,3,1,2,1,2,3,1,2,3,4,1,2,1,2,3,1,2 %N A007001 Trajectory of 1 under the morphism 1 -> 12, 2 -> 123, 3 -> 1234, etc. %C A007001 Records in this sequence occur at positions: 1, 2, 5, 14, 42, 132, 429, 1430, ... (which appear to be the Catalan numbers A000108). - _Robert G. Wilson v_, May 07 2005 %C A007001 The records do occur at Catalan numbers. Of the first C(n) numbers, the number that are equal to k is A033184(n,k), with the one n last. - _Franklin T. Adams-Watters_, Mar 29 2009 %C A007001 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, if we take away the zeros from (f(T(1), T(A000108(m) - i + 1)) - f(T(A000108(m) - i), T(A000108(m) - i + 1)), i=1..A000108(m)-1), we obtain the first A000108(m - 1) - 1 terms in this sequence. This is illustrated in the below example. - _John M. Campbell_, Sep 07 2018 %C A007001 The average of the first k terms tends to 3 as k tends to infinity. - _Andrew Slattery_, Jan 19 2021 %D A007001 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %D A007001 J. West, Generating trees and forbidden subsequences, Proc. 6th FPSAC [ Conference on Formal Power Series and Algebraic Combinatorics ] (1994), pp. 441-450 (see p. 443). %H A007001 T. D. Noe, <a href="/A007001/b007001.txt">Table of n, a(n) for n = 1..4862</a> (8 iterations) %H A007001 C. Banderier, A. Denise, P. Flajolet, M. Bousquet-Mélou et al., <a href="https://doi.org/10.1016/S0012-365X(01)00250-3">Generating Functions for Generating Trees</a>, Discrete Mathematics 246(1-3), March 2002, pp. 29-55. %H A007001 Antti Karttunen, <a href="/A080237/a080237tree.txt">Notes concerning A080237-tree and related sequences.</a> %H A007001 S. Lehr, J. Shallit and J. Tromp, <a href="https://doi.org/10.1016/0304-3975(95)00234-0">On the vector space of the automatic reals</a>, Theoret. Comput. Sci. 163 (1996), no. 1-2, 193-210. %H A007001 James Propp and N. J. A. Sloane, <a href="/A006997/a006997.pdf">Email, March 1994</a> %H A007001 <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a> %F A007001 From n > 1 onward a(n) = A080237(A081291(n-1)). - _Antti Karttunen_, Jul 31 2003 %e A007001 From _John M. Campbell_, Sep 07 2018: (Start) %e A007001 Letting m = 5, as above let (T(1) < T(2) < ... < T(42)) denote the lexicographic sequence of Young tableaux of shape (2, 2, 2, 2, 2). In this case, the sequence (f(T(1), T(43 - i)) - f(T(42 - i), T(43 - i)), i=1..41) is equal to (0, 1, 0, 0, 2, 0, 1, 0, 0, 2, 0, 0, 0, 3, 0, 1, 0, 0, 2, 0, 1, 0, 0, 2, 0, 0, 0, 3, 0, 1, 0, 0, 2, 0, 0, 0, 3, 0, 0, 0, 0). Removing the zeroes from this tuple, we obtain (1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3), which gives us the first 13 = A000108(m - 1) - 1 terms in this sequence. For example, the first term in the preceding tuple is 0 since T(1) and T(42) are respectively %e A007001 [ 5 10] [ 9 10] %e A007001 [ 4 9 ] [ 7 8 ] %e A007001 [ 3 8 ] [ 5 6 ] %e A007001 [ 2 7 ] [ 3 4 ] %e A007001 [ 1 6 ] [ 1 2 ] %e A007001 and T(41) is equal to %e A007001 [ 9 10] %e A007001 [ 7 8 ] %e A007001 [ 5 6 ] %e A007001 [ 2 4 ] %e A007001 [ 1 3 ] %e A007001 so that the first letter of disagreement between T(1) and T(42) is 2, and that between T(41) and T(42) is also 2. (End) %t A007001 Nest[ Flatten[ # /. a_Integer -> Range[a + 1]] &, {1}, 6] (* _Robert G. Wilson v_, Jan 24 2006 *) %o A007001 (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); v[n]) %Y A007001 Cf. A000245, A085182. a(n)=A076050(n)-1. Partial sums: A080336. Positions of ones: A085197. The first occurrence of each n is at A000108(n). See A085180. %K A007001 easy,nonn,nice %O A007001 1,2 %A A007001 _N. J. A. Sloane_, _Mira Bernstein_, _James Propp_ %E A007001 More terms from Larry Reeves (larryr(AT)acm.org), Sep 22 2000