A353390
Number of compositions of n whose own run-lengths are a subsequence (not necessarily consecutive).
Original entry on oeis.org
1, 1, 0, 0, 1, 2, 3, 2, 2, 8, 17, 26, 43, 77, 129, 210, 351, 569
Offset: 0
The a(0) = 1 through a(9) = 8 compositions (empty columns indicated by dots):
() (1) . . (22) (122) (1122) (11221) (21122) (333)
(221) (1221) (12211) (22112) (22113)
(2211) (22122)
(31122)
(121122)
(122112)
(211221)
(221121)
For example, the composition y = (2,2,3,3,1) has run-lengths (2,2,1), which form a (non-consecutive) subsequence, so y is counted under a(11).
The version for partitions is
A325702.
These compositions are ranked by
A353402.
The recursive consecutive version is
A353430.
A325705 counts partitions containing all of their distinct multiplicities.
A329739 counts compositions with all distinct run-lengths, for runs
A351013.
A353400 counts compositions with all run-lengths > 2.
Cf.
A005811,
A103295,
A114901,
A181591,
A238279,
A242882,
A324572,
A333755,
A351017,
A353401,
A353426.
-
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], MemberQ[Subsets[#],Length/@Split[#]]&]],{n,0,15}]
A353391
Number of compositions of n that are empty, a singleton, or whose run-lengths are a subsequence that is already counted.
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 3, 1, 1, 4, 5, 7, 9, 11, 15, 22, 38, 45, 87, 93
Offset: 0
The a(9) = 4 through a(14) = 15 compositions (A..E = 10..14):
(9) (A) (B) (C) (D) (E)
(333) (2233) (141122) (2244) (161122) (2255)
(121122) (3322) (221123) (4422) (221125) (5522)
(221121) (131122) (221132) (151122) (221134) (171122)
(221131) (221141) (221124) (221143) (221126)
(231122) (221142) (221152) (221135)
(321122) (221151) (221161) (221153)
(241122) (251122) (221162)
(421122) (341122) (221171)
(431122) (261122)
(521122) (351122)
(531122)
(621122)
(122121122)
(221121221)
The non-recursive reverse version is
A353403.
The consecutive version is
A353430.
These compositions are ranked by
A353431.
A114901 counts compositions with no runs of length 1.
A325705 counts partitions containing all of their distinct multiplicities.
A329739 counts compositions with all distinct run-length.
Cf.
A005811,
A032020,
A103295,
A114640,
A165413,
A181591,
A242882,
A324572,
A325702,
A333755,
A351013,
A353401.
-
yosQ[y_]:=Length[y]<=1||MemberQ[Subsets[y],Length/@Split[y]]&&yosQ[Length/@Split[y]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],yosQ]],{n,0,15}]
A353402
Numbers k such that the k-th composition in standard order has its own run-lengths as a subsequence (not necessarily consecutive).
Original entry on oeis.org
0, 1, 10, 21, 26, 43, 53, 58, 107, 117, 174, 186, 292, 314, 346, 348, 349, 373, 430, 442, 570, 585, 586, 629, 676, 693, 696, 697, 698, 699, 804, 826, 858, 860, 861, 885, 954, 1082, 1141, 1173, 1210, 1338, 1353, 1387, 1392, 1393, 1394, 1396, 1397, 1398, 1466
Offset: 0
The initial terms, their binary expansions, and the corresponding standard compositions:
0: 0 ()
1: 1 (1)
10: 1010 (2,2)
21: 10101 (2,2,1)
26: 11010 (1,2,2)
43: 101011 (2,2,1,1)
53: 110101 (1,2,2,1)
58: 111010 (1,1,2,2)
107: 1101011 (1,2,2,1,1)
117: 1110101 (1,1,2,2,1)
174: 10101110 (2,2,1,1,2)
186: 10111010 (2,1,1,2,2)
292: 100100100 (3,3,3)
314: 100111010 (3,1,1,2,2)
346: 101011010 (2,2,1,2,2)
348: 101011100 (2,2,1,1,3)
349: 101011101 (2,2,1,1,2,1)
373: 101110101 (2,1,1,2,2,1)
430: 110101110 (1,2,2,1,1,2)
442: 110111010 (1,2,1,1,2,2)
These compositions are counted by
A353390.
A005811 counts runs in binary expansion.
A333769 lists run-lengths of compositions in standard order.
Statistics of standard compositions:
Classes of standard compositions:
Cf.
A114640,
A165413,
A181819,
A318928,
A325705,
A329738,
A333224/
A333257,
A333755,
A353393,
A353403,
A353430.
-
stc[n_]:=Differences[Prepend[Join@@Position[ Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rosQ[y_]:=Length[y]==0||MemberQ[Subsets[y],Length/@Split[y]];
Select[Range[0,100],rosQ[stc[#]]&]
A353392
Number of compositions of n whose own run-lengths are a consecutive subsequence.
Original entry on oeis.org
1, 1, 0, 0, 1, 2, 2, 2, 2, 8, 12, 16, 20, 35, 46, 59, 81, 109, 144, 202, 282
Offset: 0
The a(0) = 0 through a(10) = 12 compositions (empty columns indicated by dots, 0 is the empty composition):
0 1 . . 22 122 1122 11221 21122 333 1333
221 2211 12211 22112 22113 2233
22122 3322
31122 3331
121122 22114
122112 41122
211221 122113
221121 131122
221131
311221
1211221
1221121
The non-consecutive version for partitions is
A325702.
The non-consecutive reverse version is
A353403.
These compositions are ranked by
A353432.
A329739 counts compositions with all distinct run-lengths.
Cf.
A008965,
A032020,
A103295,
A103300,
A114901,
A238279,
A324572,
A325705,
A333224,
A333755,
A351013,
A353401.
-
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],#=={}||MemberQ[Join@@Table[Take[#,{i,j}],{i,Length[#]},{j,i,Length[#]}],Length/@Split[#]]&]],{n,0,15}]
A353401
Number of integer compositions of n with all prime run-lengths.
Original entry on oeis.org
1, 0, 1, 1, 1, 1, 4, 3, 6, 9, 10, 18, 27, 35, 54, 83, 107, 176, 242, 354, 515, 774, 1070, 1648, 2332, 3429, 4984, 7326, 10521, 15591, 22517, 32908, 48048, 70044, 101903, 149081, 216973, 316289, 461959, 672664, 981356, 1431256, 2086901, 3041577, 4439226, 6467735
Offset: 0
The a(0) = 1 through a(9) = 9 compositions (empty column indicated by dot, 0 is the empty composition):
0 . 11 111 22 11111 33 11122 44 333
222 22111 1133 11133
1122 1111111 3311 33111
2211 11222 111222
22211 222111
112211 1111122
1112211
1122111
2211111
The case of runs equal to 2 is
A003242 aerated.
The version for parts instead of run-lengths is
A023360, both
A353429.
The version for partitions is
A055923.
A005811 counts runs in binary expansion.
A008466 counts compositions with some part > 2.
A167606 counts compositions with adjacent parts coprime.
Cf.
A078012,
A165413,
A175413,
A274174,
A333381,
A333755,
A353390,
A353391,
A353392,
A353402,
A353403.
-
b:= proc(n, h) option remember; `if`(n=0, 1, add(`if`(i<>h, add(
`if`(isprime(j), b(n-i*j, i), 0), j=2..n/i), 0), i=1..n/2))
end:
a:= n-> b(n, 0):
seq(a(n), n=0..60); # Alois P. Heinz, May 18 2022
-
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!MemberQ[Length/@Split[#],_?(!PrimeQ[#]&)]&]],{n,0,15}]
A353431
Numbers k such that the k-th composition in standard order is empty, a singleton, or has its own run-lengths as a subsequence (not necessarily consecutive) that is already counted.
Original entry on oeis.org
0, 1, 2, 4, 8, 10, 16, 32, 43, 58, 64, 128, 256, 292, 349, 442, 512, 586, 676, 697, 826, 1024, 1210, 1338, 1393, 1394, 1396, 1594, 2048, 2186, 2234, 2618, 2696, 2785, 2786, 2792, 3130, 4096, 4282, 4410, 4666, 5178, 5569, 5570, 5572, 5576, 5584, 6202, 8192
Offset: 1
The initial terms, their binary expansions, and the corresponding standard compositions:
0: 0 ()
1: 1 (1)
2: 10 (2)
4: 100 (3)
8: 1000 (4)
10: 1010 (2,2)
16: 10000 (5)
32: 100000 (6)
43: 101011 (2,2,1,1)
58: 111010 (1,1,2,2)
64: 1000000 (7)
128: 10000000 (8)
256: 100000000 (9)
292: 100100100 (3,3,3)
349: 101011101 (2,2,1,1,2,1)
442: 110111010 (1,2,1,1,2,2)
512: 1000000000 (10)
586: 1001001010 (3,3,2,2)
676: 1010100100 (2,2,3,3)
697: 1010111001 (2,2,1,1,3,1)
The non-recursive version for partitions is
A325755, counted by
A325702.
These compositions are counted by
A353391.
A005811 counts runs in binary expansion.
Statistics of standard compositions:
Classes of standard compositions:
Cf.
A032020,
A044813,
A114640,
A165413,
A181819,
A329739,
A318928,
A325705,
A333224,
A353427,
A353403.
-
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rorQ[y_]:=Length[y]<=1||MemberQ[Subsets[y],Length/@Split[y]]&& rorQ[Length/@Split[y]];
Select[Range[0,100],rorQ[stc[#]]&]
A353432
Numbers k such that the k-th composition in standard order has its own run-lengths as a consecutive subsequence.
Original entry on oeis.org
0, 1, 10, 21, 26, 43, 58, 107, 117, 174, 186, 292, 314, 346, 348, 349, 373, 430, 442, 570, 585, 586, 629, 676, 696, 697, 804, 826, 860, 861, 885, 1082, 1141, 1173, 1210, 1338, 1387, 1392, 1393, 1394, 1396, 1594, 1653, 1700, 1720, 1721, 1882, 2106, 2165, 2186
Offset: 1
The initial terms, their binary expansions, and the corresponding standard compositions:
0: 0 ()
1: 1 (1)
10: 1010 (2,2)
21: 10101 (2,2,1)
26: 11010 (1,2,2)
43: 101011 (2,2,1,1)
58: 111010 (1,1,2,2)
107: 1101011 (1,2,2,1,1)
117: 1110101 (1,1,2,2,1)
174: 10101110 (2,2,1,1,2)
186: 10111010 (2,1,1,2,2)
292: 100100100 (3,3,3)
314: 100111010 (3,1,1,2,2)
346: 101011010 (2,2,1,2,2)
348: 101011100 (2,2,1,1,3)
349: 101011101 (2,2,1,1,2,1)
373: 101110101 (2,1,1,2,2,1)
430: 110101110 (1,2,2,1,1,2)
442: 110111010 (1,2,1,1,2,2)
These compositions are counted by
A353392.
A005811 counts runs in binary expansion.
Statistics of standard compositions:
Classes of standard compositions:
Cf.
A044813,
A165413,
A181819,
A318928,
A325702,
A325705,
A325755,
A333224,
A333755,
A353389,
A353393,
A353403.
-
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rorQ[y_]:=Length[y]==0||MemberQ[Join@@Table[Take[y,{i,j}],{i,Length[y]},{j,i,Length[y]}],Length/@Split[y]];
Select[Range[0,10000],rorQ[stc[#]]&]
A353430
Number of integer compositions of n that are empty, a singleton, or whose own run-lengths are a consecutive subsequence that is already counted.
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 3, 1, 1, 4, 5, 7, 9, 11, 15, 16, 22, 25, 37, 37, 45
Offset: 0
The a(n) compositions for selected n (A..E = 10..14):
n=4: n=6: n=9: n=10: n=12: n=14:
-----------------------------------------------------------
(4) (6) (9) (A) (C) (E)
(22) (1122) (333) (2233) (2244) (2255)
(2211) (121122) (3322) (4422) (5522)
(221121) (131122) (151122) (171122)
(221131) (221124) (221126)
(221142) (221135)
(221151) (221153)
(241122) (221162)
(421122) (221171)
(261122)
(351122)
(531122)
(621122)
(122121122)
(221121221)
A114901 counts compositions with no runs of length 1.
A329739 counts compositions with all distinct run-lengths.
Cf.
A005811,
A032020,
A103295,
A114640,
A165413,
A242882,
A325705,
A333755,
A351013,
A353400,
A353401.
-
yoyQ[y_]:=Length[y]<=1||MemberQ[Join@@Table[Take[y,{i,j}],{i,Length[y]},{j,i,Length[y]}],Length/@Split[y]]&&yoyQ[Length/@Split[y]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],yoyQ]],{n,0,15}]
A353696
Numbers k such that the k-th composition in standard order (A066099) is empty, a singleton, or has run-lengths that are a consecutive subsequence that is already counted.
Original entry on oeis.org
0, 1, 2, 4, 8, 10, 16, 32, 43, 58, 64, 128, 256, 292, 349, 442, 512, 586, 676, 697, 826, 1024, 1210, 1338, 1393, 1394, 1396, 1594, 2048, 2186, 2234, 2618, 2696, 2785, 2786, 2792, 3130, 4096, 4282, 4410, 4666, 5178, 5569, 5570, 5572, 5576, 5584, 6202, 8192
Offset: 1
The terms together with their corresponding compositions begin:
0: ()
1: (1)
2: (2)
4: (3)
8: (4)
10: (2,2)
16: (5)
32: (6)
43: (2,2,1,1)
58: (1,1,2,2)
64: (7)
128: (8)
256: (9)
292: (3,3,3)
349: (2,2,1,1,2,1)
442: (1,2,1,1,2,2)
512: (10)
586: (3,3,2,2)
676: (2,2,3,3)
697: (2,2,1,1,3,1)
826: (1,3,1,1,2,2)
Non-recursive non-consecutive for partitions:
A325755, counted by
A325702.
A005811 counts runs in binary expansion.
Statistics of standard compositions:
Classes of standard compositions:
Cf.
A032020,
A114640,
A181819,
A228351,
A329739,
A318928,
A325705,
A329738,
A333224,
A353427,
A353403.
-
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
yoyQ[y_]:=Length[y]<=1||MemberQ[Join@@Table[Take[y,{i,j}],{i,Length[y]},{j,i,Length[y]}],Length/@Split[y]]&&yoyQ[Length/@Split[y]];
Select[Range[0,1000],yoyQ[stc[#]]&]
Showing 1-9 of 9 results.
Comments