A357875
Numbers whose run-sums of prime indices are weakly increasing.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70
Offset: 1
The prime indices of 24 are (1,1,1,2), with run-sums (3,2), which are not weakly increasing, so 24 is not in the sequence.
These partitions are counted by
A304405.
These are the indices of rows in
A354584 that are weakly increasing.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],LessEqual@@Total/@Split[primeMS[#]]&]
A354904
Numbers k such that the k-th composition in standard order is not the sequence of run-sums of any other composition.
Original entry on oeis.org
3, 7, 11, 14, 15, 19, 23, 27, 28, 29, 30, 31, 35, 39, 43, 46, 47, 51, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 67, 71, 75, 78, 79, 83, 87, 91, 92, 93, 94, 95, 99, 103, 107, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
Offset: 1
The terms and their corresponding compositions begin:
3: (1,1)
7: (1,1,1)
11: (2,1,1)
14: (1,1,2)
15: (1,1,1,1)
19: (3,1,1)
23: (2,1,1,1)
27: (1,2,1,1)
28: (1,1,3)
29: (1,1,2,1)
30: (1,1,1,2)
31: (1,1,1,1,1)
These compositions are counted by
A354909.
A124767 counts runs in standard compositions.
A351014 counts distinct runs of standard compositions, firsts
A351015.
A353852 ranks compositions with distinct run-sums, counted by
A353850.
-
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],FreeQ[Total/@Split[#]&/@ Join@@Permutations/@IntegerPartitions[Total[stc[#]]],stc[#]]&]
A354905
First position of n in A354578, where A354578(k) is the number of integer compositions whose run-sums constitute the k-th composition in standard order (graded reverse-lexicographic, A066099).
Original entry on oeis.org
3, 0, 2, 8, 32, 68, 130, 290, 274, 580, 520, 1298, 2080, 1096, 2082, 4168, 2178, 4164, 4386, 35137, 8328, 8786, 10274, 8772, 16712, 20562, 8712, 16658, 33320, 41554, 33288, 82210, 34856, 66628, 33312, 66642, 34850, 69704, 140306, 133448, 69714, 74308, 133154
Offset: 0
The terms and their corresponding compositions begin:
3: (1,1)
0: ()
2: (2)
8: (4)
32: (6)
68: (4,3)
130: (6,2)
290: (3,4,2)
274: (4,3,2)
580: (3,4,3)
520: (6,4)
1298: (2,4,3,2)
The inverse run-sum compositions for n = 2, 8, 32, 68, 130, 290:
(2) (4) (6) (43) (62) (342)
(11) (22) (33) (223) (332) (3411)
(1111) (222) (4111) (611) (11142)
(111111) (11113) (3311) (32211)
(22111) (22211) (111411)
(1111112) (311112)
(1112211)
This is the position of the first appearance of n in
A354578.
A005811 counts runs in binary expansion.
A353838 ranks partitions with all distinct run-sums, counted by
A353837.
A353851 counts compositions with all equal run-sums, ranked by
A353848.
A353852 ranks compositions with all distinct run-sums, counted by
A353850.
-
nn=1000;
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
antirunQ[y_]:=Length[Split[y]]==Length[y];
q=Table[Length[Select[Tuples[Divisors/@stc[n]],antirunQ]],{n,0,nn}];
w=Last[Select[Table[Take[q+1,i],{i,nn}],Union[#]==Range[Max@@#]&]-1];
Table[Position[w,k][[1,1]]-1,{k,0,Max@@w}]
A357876
The run-sums of the prime indices of n are not weakly increasing.
Original entry on oeis.org
24, 45, 48, 80, 90, 96, 120, 135, 160, 168, 175, 180, 189, 192, 224, 240, 264, 270, 275, 288, 297, 312, 315, 320, 336, 350, 360, 378, 384, 405, 408, 448, 456, 480, 495, 525, 528, 539, 540, 550, 552, 560, 567, 576, 585, 594, 600, 624, 630, 637, 640, 672, 696
Offset: 1
The terms together with their prime indices begin:
24: {1,1,1,2}
45: {2,2,3}
48: {1,1,1,1,2}
80: {1,1,1,1,3}
90: {1,2,2,3}
96: {1,1,1,1,1,2}
120: {1,1,1,2,3}
135: {2,2,2,3}
160: {1,1,1,1,1,3}
168: {1,1,1,2,4}
175: {3,3,4}
180: {1,1,2,2,3}
189: {2,2,2,4}
192: {1,1,1,1,1,1,2}
For example, the prime indices of 24 are (1,1,1,2), with run-sums (3,2), which are not weakly increasing, so 24 is in the sequence.
These are the indices of rows in
A354584 that are not weakly increasing.
These partitions are counted by
A357878.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!LessEqual@@Total/@Split[primeMS[#]]&]
A354909
Number of integer compositions of n that are not the run-sums of any other composition.
Original entry on oeis.org
0, 0, 1, 1, 3, 7, 16, 33, 74, 155, 329, 688, 1439, 2975, 6154, 12654, 25964, 53091, 108369, 220643, 448520
Offset: 0
The a(0) = 0 through a(6) = 16 compositions:
. . (11) (111) (112) (113) (114)
(211) (311) (411)
(1111) (1112) (1113)
(1121) (1122)
(1211) (1131)
(2111) (1221)
(11111) (1311)
(2112)
(2211)
(3111)
(11112)
(11121)
(11211)
(12111)
(21111)
(111111)
These compositions are ranked by
A354904 = positions of zeros in
A354578.
A353851 counts compositions with all equal run-sums, ranked by
A353848.
A353932 lists run-sums of standard compositions, rows ranked by
A353847.
Cf.
A005811,
A027336,
A066099,
A124767,
A274174,
A351597,
A353849,
A353850,
A353860,
A354905,
A354907.
-
Table[Length[Complement[Join@@Permutations/@IntegerPartitions[n], Total/@Split[#]&/@Join@@Permutations/@IntegerPartitions[n]]],{n,0,15}]
A354910
Number of compositions of n that are the run-sums of some other composition.
Original entry on oeis.org
1, 1, 1, 3, 5, 9, 16, 31, 54, 101, 183, 336, 609, 1121, 2038, 3730, 6804, 12445, 22703, 41501, 75768
Offset: 0
The a(0) = 0 through a(6) = 16 compositions:
() (1) (2) (3) (4) (5) (6)
(12) (13) (14) (15)
(21) (22) (23) (24)
(31) (32) (33)
(121) (41) (42)
(122) (51)
(131) (123)
(212) (132)
(221) (141)
(213)
(222)
(231)
(312)
(321)
(1212)
(2121)
A353851 counts compositions with all equal run-sums, ranked by
A353848.
A353932 lists run-sums of standard compositions, rows ranked by
A353847.
Cf.
A005811,
A027336,
A066099,
A239312,
A274174,
A351014,
A351597,
A353849,
A353850,
A353864,
A354905,
A354907.
A357877
The a(n)-th composition in standard order is the sequence of run-sums of the prime indices of n.
Original entry on oeis.org
0, 1, 2, 2, 4, 6, 8, 4, 8, 12, 16, 10, 32, 24, 20, 8, 64, 24, 128, 20, 40, 48, 256, 18, 32, 96, 32, 40, 512, 52, 1024, 16, 80, 192, 72, 40, 2048, 384, 160, 36, 4096, 104, 8192, 80, 68, 768, 16384, 34, 128, 96, 320, 160, 32768, 96, 144, 72, 640, 1536, 65536, 84
Offset: 1
The prime indices of 24 are (1,1,1,2), with run-sums (3,2), and this is the 18th composition in standard order, so a(24) = 18.
The version for prime indices instead of standard compositions is
A353832.
The version for standard compositions instead of prime indices is
A353847.
A066099 lists standard compositions.
A351014 counts distinct runs in standard compositions.
Cf.
A118914,
A181819,
A238279,
A239312,
A275870,
A300273,
A304405,
A304442,
A304660,
A333755,
A353743-
A354912,
A357875.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
stcinv[q_]:=Total[2^(Accumulate[Reverse[q]])]/2;
Table[stcinv[Total/@Split[primeMS[n]]],{n,100}]
Showing 1-7 of 7 results.
Comments