A329399 Numbers whose reversed binary expansion has uniform Lyndon factorization.
1, 2, 3, 4, 6, 7, 8, 10, 12, 14, 15, 16, 20, 24, 26, 28, 30, 31, 32, 36, 38, 40, 42, 44, 48, 52, 54, 56, 58, 60, 62, 63, 64, 72, 80, 84, 88, 92, 96, 100, 104, 106, 108, 112, 116, 118, 120, 122, 124, 126, 127, 128, 136, 140, 142, 144, 152, 160, 164, 168, 170
Offset: 1
Keywords
Examples
The sequence of terms together with their reversed binary expansions and Lyndon factorizations begins: 1: (1) = (1) 2: (01) = (01) 3: (11) = (1)(1) 4: (001) = (001) 6: (011) = (011) 7: (111) = (1)(1)(1) 8: (0001) = (0001) 10: (0101) = (01)(01) 12: (0011) = (0011) 14: (0111) = (0111) 15: (1111) = (1)(1)(1)(1) 16: (00001) = (00001) 20: (00101) = (00101) 24: (00011) = (00011) 26: (01011) = (01011) 28: (00111) = (00111) 30: (01111) = (01111) 31: (11111) = (1)(1)(1)(1)(1) 32: (000001) = (000001) 36: (001001) = (001)(001) 38: (011001) = (011)(001) 40: (000101) = (000101) 42: (010101) = (01)(01)(01) 44: (001101) = (001101) 48: (000011) = (000011)
Crossrefs
Numbers whose binary expansion has uniform Lyndon factorization and uniform co-Lyndon factorization are A023758.
Numbers whose reversed binary expansion is Lyndon are A328596.
Numbers whose binary expansion is co-Lyndon are A275692.
Numbers whose trimmed binary expansion has Lyndon and co-Lyndon factorizations of equal lengths are A329395.
Programs
-
Mathematica
lynQ[q_]:=Array[Union[{q,RotateRight[q,#]}]=={q,RotateRight[q,#]}&,Length[q]-1,1,And]; lynfac[q_]:=If[Length[q]==0,{},Function[i,Prepend[lynfac[Drop[q,i]],Take[q,i]]][Last[Select[Range[Length[q]],lynQ[Take[q,#]]&]]]]; Select[Range[100],SameQ@@Length/@lynfac[Reverse[IntegerDigits[#,2]]]&]
Comments