cp's OEIS Frontend

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.

A296977 List of normal Lyndon sequences ordered first by length and then lexicographically, where a finite sequence is normal if it spans an initial interval of positive integers.

This page as a plain text file.
%I A296977 #6 Dec 26 2017 17:46:48
%S A296977 1,1,2,1,1,2,1,2,2,1,2,3,1,3,2,1,1,1,2,1,1,2,2,1,1,2,3,1,1,3,2,1,2,1,
%T A296977 3,1,2,2,2,1,2,2,3,1,2,3,2,1,2,3,3,1,2,3,4,1,2,4,3,1,3,2,2,1,3,2,3,1,
%U A296977 3,2,4,1,3,3,2,1,3,4,2,1,4,2,3,1,4,3,2
%N A296977 List of normal Lyndon sequences ordered first by length and then lexicographically, where a finite sequence is normal if it spans an initial interval of positive integers.
%C A296977 Row n is formed by A060223(n) sequences and has length A296975(n).
%e A296977 Triangle of normal Lyndon sequences begins:
%e A296977 1,
%e A296977 12,
%e A296977 112,122,123,132,
%e A296977 1112,1122,1123,1132,1213,1222,1223,1232,1233,1234,1243,1322,1323,1324,1332,1342,1423,1432.
%t A296977 LyndonQ[q_]:=Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And]&&Array[RotateRight[q,#]&,Length[q],1,UnsameQ];
%t A296977 normseqs[n_]:=Union@@Permutations/@Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1];
%t A296977 Table[Select[normseqs[n],LyndonQ],{n,5}]
%Y A296977 Cf. A000670, A019536, A060223, A095684, A185700, A281013, A294859, A296372, A296656, A296818, A296975, A296976.
%K A296977 nonn,tabf
%O A296977 1,3
%A A296977 _Gus Wiseman_, Dec 22 2017