A060223 -id:A060223 - cp's OEIS frontend

A318810 Number of necklace permutations of a multiset whose multiplicities are the prime indices of n > 1.

1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 3, 1, 1, 2, 6, 1, 6, 1, 4, 3, 1, 1, 12, 4, 1, 16, 5, 1, 10, 1, 24, 3, 1, 5, 30, 1, 1, 4, 20, 1, 15, 1, 6, 30, 1, 1, 60, 10, 20, 4, 7, 1, 90, 7, 30, 5, 1, 1, 60, 1, 1, 54, 120, 10, 21, 1, 8, 5, 35, 1, 180, 1, 1, 70, 9, 14, 28, 1

Offset: 1

Gus Wiseman, Sep 04 2018

nonn

This multiset is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.
A necklace is a finite sequence that is minimal among its cyclic permutations.
a(1) = 1 by convention.

			The a(21) = 3 necklace permutations of {1,1,1,1,2,2} are: (111122), (111212), (112112). Only the first two are Lyndon words, the third being periodic.

Andrew Howroyd, Table of n, a(n) for n = 1..1000

Cf. A000670, A008480, A019536, A056239, A060223, A112798, A298941, A305936, A318762, A318808, A318809.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
neckQ[q_]:=Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And];
Table[Length[Select[Permutations[nrmptn[n]],neckQ]],{n,2,100}]

sig(n)={my(f=factor(n)); concat(vector(#f~, i, vector(f[i,2], j, primepi(f[i,1]))))}
count(sig)={my(n=vecsum(sig)); sumdiv(gcd(sig), d, eulerphi(d)*(n/d)!/prod(i=1, #sig, (sig[i]/d)!))/n}
a(n)={if(n==1, 1, count(sig(n)))} \\ Andrew Howroyd, Dec 08 2018

a(p) = 1 for prime p. - Andrew Howroyd, Dec 08 2018

a(1) inserted by Andrew Howroyd, Dec 08 2018

A332873 Number of non-unimodal, non-co-unimodal sequences of length n covering an initial interval of positive integers.

Original entry on oeis.org

0, 0, 0, 0, 22, 340, 3954, 44716, 536858, 7056252, 102140970, 1622267196, 28090317226, 526854073564, 10641328363722, 230283141084220, 5315654511587498, 130370766447282204, 3385534661270087178, 92801587312544823804, 2677687796221222845802, 81124824998424994578652

Offset: 0

Gus Wiseman, Mar 03 2020

nonn

A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence. It is co-unimodal if its negative is unimodal.

			The a(4) = 22 sequences:
  (1,2,1,2)  (2,3,1,3)
  (1,2,1,3)  (2,3,1,4)
  (1,3,1,2)  (2,4,1,3)
  (1,3,2,3)  (3,1,2,1)
  (1,3,2,4)  (3,1,3,2)
  (1,4,2,3)  (3,1,4,2)
  (2,1,2,1)  (3,2,3,1)
  (2,1,3,1)  (3,2,4,1)
  (2,1,3,2)  (3,4,1,2)
  (2,1,4,3)  (4,1,3,2)
  (2,3,1,2)  (4,2,3,1)

Andrew Howroyd, Table of n, a(n) for n = 0..200

Not requiring non-co-unimodality gives A328509.
Not requiring non-unimodality also gives A328509.
The version for run-lengths of partitions is A332640.
The version for unsorted prime signature is A332643.
The version for compositions is A332870.
Unimodal compositions are A001523.
Unimodal sequences covering an initial interval are A007052.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Unimodal compositions covering an initial interval are A227038.
Numbers whose unsorted prime signature is not unimodal are A332282.
Numbers whose negated prime signature is not unimodal are A332642.
Compositions whose run-lengths are not unimodal are A332727.
Non-unimodal compositions covering an initial interval are A332743.
Cf. A000225, A000670, A060223, A072704, A329398, A332281, A332284, A332577, A332578, A332639, A332672, A332834.

allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[Union@@Permutations/@allnorm[n],!unimodQ[#]&&!unimodQ[-#]&]],{n,0,5}]

seq(n)=Vec( serlaplace(1/(2-exp(x + O(x*x^n)))) - (1 - 6*x + 12*x^2 - 6*x^3)/((1 - x)*(1 - 2*x)*(1 - 4*x + 2*x^2)), -(n+1)) \\ Andrew Howroyd, Jan 28 2024

a(n) = A000670(n) + A000225(n) - 2*A007052(n-1) for n > 0. - Andrew Howroyd, Jan 28 2024

a(9) onwards from Andrew Howroyd, Jan 28 2024

A334273 Numbers k such that the k-th composition in standard order is both a reversed necklace and a co-necklace.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 15, 16, 17, 18, 19, 21, 23, 31, 32, 33, 34, 35, 36, 37, 39, 42, 43, 45, 47, 63, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 77, 79, 85, 87, 91, 95, 127, 128, 129, 130, 131, 132, 133, 135, 136, 137, 138, 139, 141, 143, 146, 147

Offset: 1

Gus Wiseman, Apr 25 2020

nonn

A necklace is a finite sequence of positive integers that is lexicographically less than or equal to any cyclic rotation. Co-necklaces are defined similarly, except with greater instead of less.

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The sequence of all reversed necklace co-necklaces begins:
    0: ()            31: (1,1,1,1,1)       69: (4,2,1)
    1: (1)           32: (6)               71: (4,1,1,1)
    2: (2)           33: (5,1)             73: (3,3,1)
    3: (1,1)         34: (4,2)             74: (3,2,2)
    4: (3)           35: (4,1,1)           75: (3,2,1,1)
    5: (2,1)         36: (3,3)             77: (3,1,2,1)
    7: (1,1,1)       37: (3,2,1)           79: (3,1,1,1,1)
    8: (4)           39: (3,1,1,1)         85: (2,2,2,1)
    9: (3,1)         42: (2,2,2)           87: (2,2,1,1,1)
   10: (2,2)         43: (2,2,1,1)         91: (2,1,2,1,1)
   11: (2,1,1)       45: (2,1,2,1)         95: (2,1,1,1,1,1)
   15: (1,1,1,1)     47: (2,1,1,1,1)      127: (1,1,1,1,1,1,1)
   16: (5)           63: (1,1,1,1,1,1)    128: (8)
   17: (4,1)         64: (7)              129: (7,1)
   18: (3,2)         65: (6,1)            130: (6,2)
   19: (3,1,1)       66: (5,2)            131: (6,1,1)
   21: (2,2,1)       67: (5,1,1)          132: (5,3)
   23: (2,1,1,1)     68: (4,3)            133: (5,2,1)

The aperiodic case is A334266.
Compositions of this type are counted by A334271.
Normal sequences of this type are counted by A334272.
Another ranking of the same compositions is A334274 (binary expansion).
Binary (or reversed binary) necklaces are counted by A000031.
Necklace compositions are counted by A008965.
All of the following pertain to compositions in standard order (A066099):
- Necklaces are A065609.
- Reversed necklaces are A333943.
- Co-necklaces are A333764.
- Reversed co-necklaces are A328595.
- Lyndon words are A275692.
- Co-Lyndon words are A326774.
- Reversed Lyndon words are A334265.
- Reversed co-Lyndon words are A328596.
- Aperiodic compositions are A328594.
Cf. A019536, A034691, A059966, A060223, A329138, A334269, A334270.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
neckQ[q_]:=Length[q]==0||Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And];
coneckQ[q_]:=Length[q]==0||Array[OrderedQ[{RotateRight[q,#],q}]&,Length[q]-1,1,And];
Select[Range[0,100],neckQ[Reverse[stc[#]]]&&coneckQ[stc[#]]&]

A334274 Numbers k such that the k-th composition in standard order is both a necklace and a reversed co-necklace.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 7, 8, 10, 12, 14, 15, 16, 20, 24, 26, 28, 30, 31, 32, 36, 40, 42, 48, 52, 54, 56, 58, 60, 62, 63, 64, 72, 80, 84, 96, 100, 104, 106, 108, 112, 116, 118, 120, 122, 124, 126, 127, 128, 136, 144, 160, 164, 168, 170, 192, 200, 204, 208, 212, 216

Offset: 1

Gus Wiseman, Apr 25 2020

nonn

Also numbers whose binary expansion is both a reversed necklace and a co-necklace.
A necklace is a finite sequence of positive integers that is lexicographically less than or equal to any cyclic rotation. Co-necklaces are defined similarly, except with greater instead of less.
The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The sequence of all reversed co-necklace necklaces begins:
    0: ()            31: (1,1,1,1,1)      100: (1,3,3)
    1: (1)           32: (6)              104: (1,2,4)
    2: (2)           36: (3,3)            106: (1,2,2,2)
    3: (1,1)         40: (2,4)            108: (1,2,1,3)
    4: (3)           42: (2,2,2)          112: (1,1,5)
    6: (1,2)         48: (1,5)            116: (1,1,2,3)
    7: (1,1,1)       52: (1,2,3)          118: (1,1,2,1,2)
    8: (4)           54: (1,2,1,2)        120: (1,1,1,4)
   10: (2,2)         56: (1,1,4)          122: (1,1,1,2,2)
   12: (1,3)         58: (1,1,2,2)        124: (1,1,1,1,3)
   14: (1,1,2)       60: (1,1,1,3)        126: (1,1,1,1,1,2)
   15: (1,1,1,1)     62: (1,1,1,1,2)      127: (1,1,1,1,1,1,1)
   16: (5)           63: (1,1,1,1,1,1)    128: (8)
   20: (2,3)         64: (7)              136: (4,4)
   24: (1,4)         72: (3,4)            144: (3,5)
   26: (1,2,2)       80: (2,5)            160: (2,6)
   28: (1,1,3)       84: (2,2,3)          164: (2,3,3)
   30: (1,1,1,2)     96: (1,6)            168: (2,2,4)

The aperiodic case is A334267.
Compositions of this type are counted by A334271.
Normal sequences of this type are counted by A334272.
Binary (or reversed binary) necklaces are counted by A000031.
Necklace compositions are counted by A008965.
All of the following pertain to compositions in standard order (A066099):
- Necklaces are A065609.
- Reversed necklaces are A333943.
- Co-necklaces are A333764.
- Reversed co-necklaces are A328595.
- Lyndon words are A275692.
- Co-Lyndon words are A326774.
- Reversed Lyndon words are A334265.
- Reversed co-Lyndon words are A328596.
- Aperiodic compositions are A328594.
Cf. A019536, A034691, A059966, A060223, A329138, A334266, A334269, A334270.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
neckQ[q_]:=Length[q]==0||Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And];
coneckQ[q_]:=Length[q]==0||Array[OrderedQ[{RotateRight[q,#],q}]&,Length[q]-1,1,And];
Select[Range[0,100],neckQ[stc[#]]&&coneckQ[Reverse[stc[#]]]&]

A334297 Length of the Lyndon factorization of the reversed n-th composition in standard order.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 2, 2, 3, 4, 1, 1, 1, 1, 2, 1, 2, 1, 2, 2, 3, 2, 3, 3, 4, 5, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 2, 2, 1, 2, 2, 2, 2, 3, 2, 3, 2, 3, 3, 4, 3, 4, 4, 5, 6, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2

Offset: 0

Gus Wiseman, Apr 25 2020

nonn

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. 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).

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The 12345th composition is (1,7,1,1,3,1), with reverse (1,3,1,1,7,1), with Lyndon factorization ((1),(1,3),(1,1,7)), so a(12345) = 3.

The non-reversed version is A329312.
The version for binary indices is A329313 (also the "co-" version).
Positions of 1's are A334265 (reversed Lyndon words).
Binary Lyndon words are counted by A001037 and ranked by A102659.
Lyndon compositions are counted by A059966 and ranked by A275692.
Normal Lyndon sequences are counted by A060223 (row sums of A296372).
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Necklaces are A065609.
- Sum is A070939.
- Reverse is A228351 (triangle).
- Strict compositions are A233564.
- Constant compositions are A272919.
- Lyndon words are A275692.
- Co-Lyndon words are A326774.
- Reversed co-Lyndon words are A328596.
- Aperiodic compositions are A328594.
- Distinct rotations are counted by A333632.
- Lyndon factorizations are counted by A333940.
- Length of co-Lyndon factorization is A334029.
Cf. A027375, A211097, A211100, A328595, A329314, A329317.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
lynQ[q_]:=Length[q]==0||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,#]]&]]]];
Table[Length[lynfac[Reverse[stc[n]]]],{n,0,100}]

A323868 Number of matrices of size n whose entries cover an initial interval of positive integers.

Original entry on oeis.org

1, 6, 26, 225, 1082, 18732, 94586, 2183340, 21261783, 408990252, 3245265146, 168549405570, 1053716696762, 42565371881772, 921132763911412, 26578273409906775, 260741534058271802, 20313207979541071938, 185603174638656822266, 16066126777466305218690

Offset: 1

Gus Wiseman, Feb 04 2019

nonn

			The 42 matrices of size 4 whose entries cover {1,2}:
  1222 2111 1122 2211 1212 2121 1221 2112 1112 2221 1121 2212 1211 2122
.
  12  21  11  22  12  21  12  21  11  22  11  22  12  21
  22  11  22  11  12  21  21  12  12  21  21  12  11  22
.
  1   2   1   2   1   2   1   2   1   2   1   2   1   2
  2   1   1   2   2   1   2   1   1   2   1   2   2   1
  2   1   2   1   1   2   2   1   1   2   2   1   1   2
  2   1   2   1   2   1   1   2   2   1   1   2   1   2
The 18 matrices of size 4 whose entries cover {1,2} with multiplicities {2,2}:
  [1 1 2 2] [2 2 1 1] [1 2 1 2] [2 1 2 1] [1 2 2 1] [2 1 1 2]
.
  [1 1] [2 2] [1 2] [2 1] [1 2] [2 1]
  [2 2] [1 1] [1 2] [2 1] [2 1] [1 2]
.
  [1] [2] [1] [2] [1] [2]
  [1] [2] [2] [1] [2] [1]
  [2] [1] [1] [2] [2] [1]
  [2] [1] [2] [1] [1] [2]

Alois P. Heinz, Table of n, a(n) for n = 1..424

Cf. A000005, A000670, A060223, A101509.

Cf. A323351, A323869, A323870, A323871.

b:= proc(n) option remember; `if`(n=0, 1,
      add(b(n-j)*binomial(n, j), j=1..n))
    end:
a:= n-> b(n)*numtheory[tau](n):
seq(a(n), n=1..20);  # Alois P. Heinz, Feb 04 2019

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
nrmmats[n_]:=Join@@Table[Table[Table[Position[stn,{i,j}][[1,1]],{i,d},{j,n/d}],{stn,Join@@Permutations/@sps[Tuples[{Range[d],Range[n/d]}]]}],{d,Divisors[n]}];
Table[Length[nrmmats[n]],{n,6}]
Table[DivisorSigma[0, n]*Sum[k! StirlingS2[n, k], {k, 1, n}], {n, 1, 20}] (* Vaclav Kotesovec, Feb 05 2019 *)

a(n) = numdiv(n)*sum(k=0, n, stirling(n, k, 2)*k!); \\ Michel Marcus, Feb 05 2019

a(n) = A000005(n) * A000670(n).

A324512 Number of aperiodic n-gons.

Original entry on oeis.org

1, 0, 0, 0, 10, 42, 357, 2400, 20142, 180280, 1814395, 19944804, 239500794, 3113326062, 43589143560, 653834280960, 10461394943992, 177843662409312, 3201186852863991, 60822549182544440, 1216451004087794832, 25545471063559372750, 562000363888803839989

Offset: 1

Gus Wiseman, Mar 04 2019

nonn

We define an n-gon to be aperiodic if all n rotations of its vertex set act on the edge set to give distinct n-gons. These are different from aperiodic graphs and acyclic graphs but are similar to aperiodic sequences (A000740) and aperiodic arrays (A323867).

			The a(5) = 10 aperiodic polygon edge sets:
  {{1,2},{1,3},{2,4},{3,5},{4,5}}
  {{1,2},{1,3},{2,5},{3,4},{4,5}}
  {{1,2},{1,4},{2,3},{3,5},{4,5}}
  {{1,2},{1,4},{2,5},{3,4},{3,5}}
  {{1,2},{1,5},{2,4},{3,4},{3,5}}
  {{1,3},{1,4},{2,3},{2,5},{4,5}}
  {{1,3},{1,5},{2,3},{2,4},{4,5}}
  {{1,3},{1,5},{2,4},{2,5},{3,4}}
  {{1,4},{1,5},{2,3},{2,4},{3,5}}
  {{1,4},{1,5},{2,3},{2,5},{3,4}}

Andrew Howroyd, Table of n, a(n) for n = 1..200
Gus Wiseman, The a(5) = 10 aperiodic polygons.
Gus Wiseman, The a(6) = 42 aperiodic polygons.

Cf. A000740, A008965, A027375, A059966, A060223, A192332, A275527, A323860, A323867, A323869, A324461, A324462, A324513, A324514.

rotgra[g_,m_]:=Sort[Sort/@(g/.k_Integer:>If[k==m,1,k+1])];
Table[Length[Select[Union[Sort[Sort/@Partition[#,2,1,1]]&/@Permutations[Range[n]]],UnsameQ@@Table[Nest[rotgra[#,n]&,#,j],{j,n}]&]],{n,8}]

a(n)={if(n<3, n==1, (if(n%2, 0, -n*(n/2-1)!*2^(n/2-2)) + sumdiv(n, d, moebius(n/d)*eulerphi(n/d)*(n/d)^d*d!/n))/2)} \\ Andrew Howroyd, Aug 19 2019

a(n) = n * A324513(n).

Terms a(10) and beyond from Andrew Howroyd, Aug 19 2019

A328035 Number of length n primitive (period n) bracelet structures which are not periodic palindromes using an infinite alphabet.

Original entry on oeis.org

0, 0, 1, 2, 7, 23, 78, 311, 1297, 6200, 31747, 178703, 1070388, 6842898, 46158435, 327718768, 2437732593, 18948528721, 153498234770, 1293122838953, 11306474635818, 102425551817363, 959826751122645, 9290811889272509, 92771812680385087, 954447072777977556

Offset: 1

Andrew Howroyd, Oct 02 2019

nonn

Equivalently, the number of length n bracelet structures that do not have any symmetry under the action of the dihedral group. The corresponding sequence for necklace structures that do not have any symmetry under the action of the cyclic group is A060223.

			For n = 5, the 7 bracelet structures have the patterns AAABC, AABAC, AABBC, ABABC, AABCD, ABACD, ABCDE.

Andrew Howroyd, Table of n, a(n) for n = 1..200

Row sums of A309784.

Cf. A060223, A276548, A285042.

\\ Requires T from A309784.
seq(n)={my(A=T(n)); vector(n, i, vecsum(A[i, ]))}

a(n) = A276548(n) - A285042(n).

A329396 Numbers k such that the co-Lyndon factorization of the binary expansion of k is uniform.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 10, 12, 14, 15, 16, 20, 24, 26, 28, 30, 31, 32, 36, 38, 40, 42, 48, 50, 52, 54, 56, 58, 60, 62, 63, 64, 72, 80, 84, 96, 98, 100, 104, 106, 108, 112, 114, 116, 118, 120, 122, 124, 126, 127, 128, 136, 140, 142, 144, 160, 164, 168, 170, 192

Offset: 1

Gus Wiseman, Nov 13 2019

nonn

The co-Lyndon product of two or more finite sequences is defined to be the lexicographically minimal sequence obtainable by shuffling the sequences together. For example, the co-Lyndon product of (231) and (213) is (212313), the product of (221) and (213) is (212213), and the product of (122) and (2121) is (1212122). A co-Lyndon word is a finite sequence that is prime with respect to the co-Lyndon product. Equivalently, a co-Lyndon word is a finite sequence that is lexicographically strictly greater than all of its cyclic rotations. Every finite sequence has a unique (orderless) factorization into co-Lyndon words, and if these factors are arranged in a certain order, their concatenation is equal to their co-Lyndon product. For example, (1001) has sorted co-Lyndon factorization (1)(100).

A sequence of words is uniform if they all have the same length.

			The sequence of terms together with their co-Lyndon factorizations begins:
   1:      (1) = (1)
   2:     (10) = (10)
   3:     (11) = (1)(1)
   4:    (100) = (100)
   6:    (110) = (110)
   7:    (111) = (1)(1)(1)
   8:   (1000) = (1000)
  10:   (1010) = (10)(10)
  12:   (1100) = (1100)
  14:   (1110) = (1110)
  15:   (1111) = (1)(1)(1)(1)
  16:  (10000) = (10000)
  20:  (10100) = (10100)
  24:  (11000) = (11000)
  26:  (11010) = (11010)
  28:  (11100) = (11100)
  30:  (11110) = (11110)
  31:  (11111) = (1)(1)(1)(1)(1)
  32: (100000) = (100000)
  36: (100100) = (100)(100)
  38: (100110) = (100)(110)
  40: (101000) = (101000)
  42: (101010) = (10)(10)(10)

Numbers whose binary expansion has uniform 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.
Cf. A001037, A059966, A060223, A102659, A211100, A329131, A329312, A329313, A329318, A329326, A329398.

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,#]]&]]];
Select[Range[100],SameQ@@Length/@colynfac[IntegerDigits[#,2]]&]

A329399 Numbers whose reversed binary expansion has uniform Lyndon factorization.

Original entry on oeis.org

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

Gus Wiseman, Nov 13 2019

nonn

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).

A sequence of words is uniform if they all have the same length.

			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)

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.
Cf. A001037, A059966, A060223, A102659, A211100, A329131, A329312, A329313, A329318, A329326, A329396.

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]]]&]

cp's OEIS Frontend

A318810 Number of necklace permutations of a multiset whose multiplicities are the prime indices of n > 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A332873 Number of non-unimodal, non-co-unimodal sequences of length n covering an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A334273 Numbers k such that the k-th composition in standard order is both a reversed necklace and a co-necklace.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A334274 Numbers k such that the k-th composition in standard order is both a necklace and a reversed co-necklace.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A334297 Length of the Lyndon factorization of the reversed n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A323868 Number of matrices of size n whose entries cover an initial interval of positive integers.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A324512 Number of aperiodic n-gons.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A328035 Number of length n primitive (period n) bracelet structures which are not periodic palindromes using an infinite alphabet.