A383089
Numbers whose prime indices have more than one permutation with all equal run-lengths.
Original entry on oeis.org
6, 10, 14, 15, 21, 22, 26, 30, 33, 34, 35, 36, 38, 39, 42, 46, 51, 55, 57, 58, 60, 62, 65, 66, 69, 70, 74, 77, 78, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 100, 102, 105, 106, 110, 111, 114, 115, 118, 119, 120, 122, 123, 126, 129, 130, 132, 133, 134, 138, 140
Offset: 1
The prime indices of 36 are {1,1,2,2}, and we have 4 permutations each having all equal run-lengths: (1,1,2,2), (1,2,1,2), (2,2,1,1), (2,1,2,1), so 36 is in the sequence.
The terms together with their prime indices begin:
6: {1,2}
10: {1,3}
14: {1,4}
15: {2,3}
21: {2,4}
22: {1,5}
26: {1,6}
30: {1,2,3}
33: {2,5}
34: {1,7}
35: {3,4}
36: {1,1,2,2}
38: {1,8}
39: {2,6}
42: {1,2,4}
46: {1,9}
51: {2,7}
55: {3,5}
57: {2,8}
58: {1,10}
60: {1,1,2,3}
Partitions of this type are counted by
A383090.
For distinct instead of equal run-sums we have
A383113.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A047966 counts partitions with equal run-lengths, compositions
A329738.
Cf.
A000720,
A000961,
A001221,
A001222,
A048767,
A353744,
A353833,
A381541,
A381871,
A382877,
A383014,
A383100.
A383096
Number of integer partitions of n having no permutation with all equal run-sums.
Original entry on oeis.org
0, 0, 0, 1, 1, 5, 4, 13, 15, 25, 35, 54, 58, 99, 128, 168, 217, 295, 358, 488, 603, 784, 995, 1253, 1517, 1953, 2429, 2997, 3688, 4563, 5532, 6840, 8311, 10135, 12303, 14875, 17842, 21635, 26008, 31177, 37247, 44581, 53062, 63259, 75130, 89096, 105551, 124752, 147015, 173520
Offset: 0
The a(3) = 1 through a(8) = 15 partitions:
(21) (31) (32) (42) (43) (53)
(41) (51) (52) (62)
(221) (321) (61) (71)
(311) (411) (322) (332)
(2111) (331) (431)
(421) (521)
(511) (611)
(2221) (3221)
(3211) (3311)
(4111) (4211)
(22111) (5111)
(31111) (22211)
(211111) (32111)
(311111)
(2111111)
For distinct instead of equal run-sums we appear to have
A381717, q.v.
Counting and ranking partitions by run-lengths and run-sums:
A382876 counts permutations of prime indices with distinct run-sums, zeros
A381636.
A383095 counts partitions having a unique permutation with equal run-sums, ranks
A383099.
-
Table[Length[Select[IntegerPartitions[n],Length[Select[Permutations[#],SameQ@@Total/@Split[#]&]]==0&]],{n,0,15}]
A382858
Number of ways to permute a multiset whose multiplicities are the prime indices of n so that the run-lengths are all equal.
Original entry on oeis.org
1, 1, 1, 2, 1, 1, 1, 6, 4, 0, 1, 6, 1, 0, 1, 24, 1, 12, 1, 2, 1, 0, 1, 36, 4, 0, 36, 0, 1, 10, 1, 120, 0, 0, 1, 84, 1, 0, 0, 24, 1, 3, 1, 0, 38, 0, 1, 240, 6, 18, 0, 0, 1, 246, 0, 6, 0, 0, 1, 96, 1, 0, 30, 720, 1, 0, 1, 0, 0, 14, 1, 660, 1, 0, 74, 0, 1, 0, 1
Offset: 1
The a(9) = 4 permutations are:
(1,1,2,2)
(1,2,1,2)
(2,1,2,1)
(2,2,1,1)
These permutations for factorials are counted by
A335407, distinct
A382774.
For distinct instead of equal run-lengths we have
A382773.
A003963 gives product of prime indices.
A140690 lists numbers whose binary expansion has equal run-lengths, distinct
A044813.
A047966 counts partitions with equal multiplicities, distinct
A098859.
A382913 ranks Look-and-Say partitions by signature, complement
A382912.
Cf.
A000720,
A000961,
A001221,
A001222,
A003242,
A048767,
A181821,
A182854,
A238130,
A305936,
A351202,
A382879.
-
nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Table[Length[Select[Permutations[nrmptn[n]],SameQ@@Length/@Split[#]&]],{n,100}]
A383112
Numbers whose multiset of prime indices has exactly one permutation with all equal run-lengths.
Original entry on oeis.org
1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 25, 27, 28, 29, 31, 32, 37, 41, 43, 44, 45, 47, 49, 50, 52, 53, 59, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 81, 83, 89, 92, 97, 98, 99, 101, 103, 107, 108, 109, 113, 116, 117, 121, 124, 125, 127
Offset: 1
The prime indices of 144 are {1,1,1,1,2,2}, of which the only permutation with all equal run-lengths is (1,1,2,2,1,1), so 144 is in the sequence.
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
11: {5}
12: {1,1,2}
13: {6}
16: {1,1,1,1}
17: {7}
18: {1,2,2}
19: {8}
20: {1,1,3}
23: {9}
25: {3,3}
27: {2,2,2}
28: {1,1,4}
29: {10}
31: {11}
32: {1,1,1,1,1}
Partitions of this type are counted by
A383094.
Cf.
A000961,
A001221,
A001222,
A048767,
A351294,
A351295,
A353833,
A381434,
A381540,
A382877,
A383100.
A383091
Numbers whose prime indices have at most one permutation with all equal run-lengths.
Original entry on oeis.org
1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 80, 81, 83, 88, 89, 92, 96, 97, 98, 99, 101, 103, 104, 107, 108, 109
Offset: 1
The prime indices of 144 are {1,1,1,1,2,2}, with just one permutation with all equal run-lengths (1,1,2,2,1,1), so 144 is in the sequence.
The prime indices of 240 are {1,1,1,1,2,3}, which have no permutation with all equal run-lengths, so 240 is in the sequence.
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
11: {5}
12: {1,1,2}
13: {6}
16: {1,1,1,1}
17: {7}
18: {1,2,2}
19: {8}
20: {1,1,3}
23: {9}
24: {1,1,1,2}
The complement for run-sums instead of lengths is
A383015, counted by
A383097.
A047966 counts partitions with equal run-lengths, compositions
A329738.
Cf.
A000720,
A000961,
A001221,
A001222,
A048767,
A351294,
A353744,
A353833,
A381435,
A382771,
A382877,
A383113.
A353743
Least number with run-sum trajectory of length k; a(0) = 1.
Original entry on oeis.org
1, 2, 4, 12, 84, 1596, 84588, 11081028, 3446199708, 2477817590052, 4011586678294188, 14726534696017964148, 120183249654202605411828, 2146833388573021140471483564, 83453854313999050793547980583372, 7011542477899258250521520684673165324
Offset: 0
The terms together with their prime indices begin:
1: {}
2: {1}
4: {1,1}
12: {1,1,2}
84: {1,1,2,4}
1596: {1,1,2,4,8}
84588: {1,1,2,4,8,16}
The run-sum trajectory is the iteration of
A353832.
The first length-k row of
A353840 has index a(k).
A353838 ranks partitions with all distinct run-sums, counted by
A353837.
Cf.
A002033,
A005117,
A006939,
A071625,
A076954,
A126796,
A181819,
A182857,
A188431,
A299702,
A325780,
A325781,
A353834.
-
Join[{1,2},Table[2*Product[Prime[2^k],{k,0,n}],{n,0,6}]]
A353858
Number of integer compositions of n with run-sum trajectory ending in a singleton.
Original entry on oeis.org
0, 1, 2, 2, 5, 2, 8, 2, 20, 5, 8, 2, 78, 2, 8, 8, 223, 2, 179, 2, 142, 8, 8, 2, 4808
Offset: 0
The a(0) = 0 through a(8) = 20 compositions:
. (1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (11111) (33) (1111111) (44)
(112) (222) (224)
(211) (1113) (422)
(1111) (2112) (1124)
(3111) (2114)
(11211) (2222)
(111111) (4112)
(4211)
(11114)
(21122)
(22112)
(41111)
(111122)
(112112)
(211211)
(221111)
(1111211)
(1121111)
(11111111)
The lengths of trajectories of standard compositions are
A353854.
These compositions are ranked by
A353857.
A066099 lists compositions in standard order.
A353859 counts compositions by length of run-sum trajectory.
A353860 counts collapsible compositions.
A353932 lists run-sums of standard compositions.
-
Table[Length[Select[Join@@Permutations/@ IntegerPartitions[n], Length[FixedPoint[Total/@Split[#]&,#]]==1&]],{n,0,15}]
A382914
Numbers k such that it is not possible to permute a multiset whose multiplicities are the prime indices of k so that the run-lengths are all equal.
Original entry on oeis.org
10, 14, 22, 26, 28, 33, 34, 38, 39, 44, 46, 51, 52, 55, 57, 58, 62, 66, 68, 69, 74, 76, 78, 82, 85, 86, 87, 88, 92, 93, 94, 95, 102, 104, 106, 111, 114, 115, 116, 118, 119, 122, 123, 124, 129, 130, 134, 136, 138, 141, 142, 145, 146, 148, 152, 153, 155, 156
Offset: 1
The terms together with their prime indices begin:
10: {1,3}
14: {1,4}
22: {1,5}
26: {1,6}
28: {1,1,4}
33: {2,5}
34: {1,7}
38: {1,8}
39: {2,6}
44: {1,1,5}
46: {1,9}
51: {2,7}
52: {1,1,6}
55: {3,5}
57: {2,8}
58: {1,10}
62: {1,11}
66: {1,2,5}
For prime indices instead of signature we have
A382879, counted by
A382915.
A003963 gives product of prime indices.
A140690 lists numbers whose binary expansion has equal run-lengths, distinct
A044813.
A164707 lists numbers whose binary form has equal runs of ones, distinct
A328592.
-
nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],Select[Permutations[nrmptn[#]],SameQ@@Length/@Split[#]&]=={}&]
A353842
Last part of the trajectory of the partition run-sum transformation of n, using Heinz numbers.
Original entry on oeis.org
1, 2, 3, 3, 5, 6, 7, 5, 7, 10, 11, 7, 13, 14, 15, 7, 17, 14, 19, 15, 21, 22, 23, 15, 13, 26, 13, 21, 29, 30, 31, 11, 33, 34, 35, 21, 37, 38, 39, 13, 41, 42, 43, 33, 35, 46, 47, 21, 19, 26, 51, 39, 53, 26, 55, 35, 57, 58, 59, 35, 61, 62, 19, 13, 65, 66, 67, 51
Offset: 1
The partition run-sum trajectory of 87780 is: 87780 -> 65835 -> 51205 -> 19855 -> 2915, so a(87780) = 2915.
The fixed points and image are
A005117.
Other sequences pertaining to partition trajectory are
A353841-
A353846.
A353832 represents the operation of taking run-sums of a partition.
-
Table[NestWhile[Times@@Prime/@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]*k]&,n,!SquareFreeQ[#]&],{n,100}]
A383014
Numbers whose prime indices can be partitioned into constant blocks with a common sum.
Original entry on oeis.org
1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 36, 37, 40, 41, 43, 47, 48, 49, 53, 59, 61, 63, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 108, 109, 112, 113, 121, 125, 127, 128, 131, 137, 139, 144, 149, 151, 157, 163, 167, 169
Offset: 1
The prime indices of 36 are {1,1,2,2}, and a partition into constant blocks with a common sum is: {{2},{2},{1,1}}, so 36 is in the sequence.
The prime indices of 43200 are {1,1,1,1,1,1,2,2,2,3,3}, and a partition into constant blocks with a common sum is: {{{1,1,1,1,1,1},{2,2,2},{3,3}}}, so 43200 is in the sequence.
The prime indices of 520000 are {1,1,1,1,1,1,3,3,3,3,6} and a partition into constant blocks with a common sum is: {{1,1,1,1,1,1},{3,3},{3,3},{6}}, so 520000 is in the sequence.
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
11: {5}
12: {1,1,2}
13: {6}
16: {1,1,1,1}
17: {7}
19: {8}
23: {9}
25: {3,3}
27: {2,2,2}
29: {10}
31: {11}
32: {1,1,1,1,1}
36: {1,1,2,2}
37: {12}
40: {1,1,1,3}
Twice-partitions of this type (constant blocks with a common sum) are counted by
A279789.
For distinct sums we have the complement of
A381636.
For strict blocks we have the complement of
A381719.
For distinct sums and strict blocks we have the complement of
A381806.
These are the positions of positive terms in
A381995.
Partitions of this type are counted by
A383093.
A001055 counts factorizations (multiset partitions of prime indices), strict
A045778.
A050361 counts factorizations into distinct prime powers.
-
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn, {ptn,IntegerPartitions[Length[y]]}];
Select[Range[100], Select[Join@@@Tuples[mce/@Split[prix[#]]], SameQ@@Total/@#&]!={}&]
Comments