[go: up one dir, main page]

login
Revision History for A329395 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Numbers whose binary expansion without the most significant (first) digit has Lyndon and co-Lyndon factorizations of equal lengths.
(history; published version)
#9 by Susanna Cuyler at Tue Jun 09 22:13:48 EDT 2020
STATUS

proposed

approved

#8 by Gus Wiseman at Tue Jun 09 15:30:06 EDT 2020
STATUS

editing

proposed

#7 by Gus Wiseman at Sat Jun 06 02:38:18 EDT 2020
COMMENTS

Conjecture: also numbers k such that the k-th composition in standard order (A066099) is a palindrome, cf. A025065, A242414, A317085, A317086, A317087, A335373. - Gus Wiseman, Jun 06 2020

#6 by Gus Wiseman at Sat Jun 06 00:48:43 EDT 2020
COMMENTS

Conjecture: also numbers k such that the k-th composition in standard order (A066099) is a palindrome, cf. A335373. - Gus Wiseman, Jun 06 2020

CROSSREFS
STATUS

approved

editing

#5 by N. J. A. Sloane at Thu Nov 14 12:58:28 EST 2019
STATUS

proposed

approved

#4 by Gus Wiseman at Wed Nov 13 19:30:33 EST 2019
STATUS

editing

proposed

#3 by Gus Wiseman at Wed Nov 13 19:29:57 EST 2019
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, #]]&]]]];

colynQ[q_]:=Array[Union[{RotateRight[q, #], q}]=={RotateRight[q, #], q}&, Length[q]-1, 1, And];

colynfac[q_]:=If[Length[q]==0, {}, Function[i, Prepend[colynfac[Drop[q, i]], Take[q, i]]]@Last[Select[Range[Length[q]], colynQ[Take[q, #]]&]]];

#2 by Gus Wiseman at Wed Nov 13 04:45:34 EST 2019
NAME

allocated for Gus WisemanNumbers whose binary expansion without the most significant (first) digit has Lyndon and co-Lyndon factorizations of equal lengths.

DATA

1, 2, 3, 4, 7, 8, 10, 13, 15, 16, 22, 25, 31, 32, 36, 42, 46, 49, 53, 59, 63, 64, 76, 82, 94, 97, 109, 115, 127, 128, 136, 148, 156, 162, 166, 169, 170, 172, 181, 182, 190, 193, 201, 202, 211, 213, 214, 217, 221, 227, 235, 247, 255, 256, 280, 292, 306, 308

OFFSET

1,2

COMMENTS

We define the Lyndon product of two or more finite sequences to be the lexicographically maximal sequence obtainable by shuffling the sequences together. For example, the Lyndon product of (231) with (213) is (232131), the product of (221) with (213) is (222131), and the product of (122) with (2121) is (2122121). A Lyndon word is a finite sequence that is prime with respect to the Lyndon product. Equivalently, a Lyndon word is a finite sequence that is lexicographically strictly less than all of its cyclic rotations. Every finite sequence has a unique (orderless) factorization into Lyndon words, and if these factors are arranged in lexicographically decreasing order, their concatenation is equal to their Lyndon product. For example, (1001) has sorted Lyndon factorization (001)(1).

Similarly, the co-Lyndon product is the lexicographically minimal sequence obtainable by shuffling the sequences together, and a co-Lyndon word is a finite sequence that is prime with respect to the co-Lyndon product, or, equivalently, a finite sequence that is lexicographically strictly greater than all of its cyclic rotations. For example, (1001) has sorted co-Lyndon factorization (1)(100).

EXAMPLE

The sequence of terms together with their trimmed binary expansions and their co-Lyndon and Lyndon factorizations begins:

1: () = 0 = 0

2: (0) = (0) = (0)

3: (1) = (1) = (1)

4: (00) = (0)(0) = (0)(0)

7: (11) = (1)(1) = (1)(1)

8: (000) = (0)(0)(0) = (0)(0)(0)

10: (010) = (0)(10) = (01)(0)

13: (101) = (10)(1) = (1)(01)

15: (111) = (1)(1)(1) = (1)(1)(1)

16: (0000) = (0)(0)(0)(0) = (0)(0)(0)(0)

22: (0110) = (0)(110) = (011)(0)

25: (1001) = (100)(1) = (1)(001)

31: (1111) = (1)(1)(1)(1) = (1)(1)(1)(1)

32: (00000) = (0)(0)(0)(0)(0) = (0)(0)(0)(0)(0)

36: (00100) = (0)(0)(100) = (001)(0)(0)

42: (01010) = (0)(10)(10) = (01)(01)(0)

46: (01110) = (0)(1110) = (0111)(0)

49: (10001) = (1000)(1) = (1)(0001)

53: (10101) = (10)(10)(1) = (1)(01)(01)

59: (11011) = (110)(1)(1) = (1)(1)(011)

63: (11111) = (1)(1)(1)(1)(1) = (1)(1)(1)(1)(1)

MATHEMATICA

Select[Range[100], Length[lynfac[Rest[IntegerDigits[#, 2]]]]==Length[colynfac[Rest[IntegerDigits[#, 2]]]]&]

CROSSREFS

Lyndon and co-Lyndon compositions are (both) counted by A059966.

Numbers whose reversed binary expansion is Lyndon are A328596.

Numbers whose binary expansion is co-Lyndon are A275692.

Cf. A001037, A060223, A102659, A211100, A329131, A329312, A329313, A329318, A329326, A329394, A329398.

KEYWORD

allocated

nonn

AUTHOR

Gus Wiseman, Nov 13 2019

STATUS

approved

editing

#1 by Gus Wiseman at Wed Nov 13 01:23:36 EST 2019
NAME

allocated for Gus Wiseman

KEYWORD

allocated

STATUS

approved