A317256 -id:A317256 - cp's OEIS frontend

A332339 Number of alternately co-strong reversed integer partitions of n.

1, 1, 2, 3, 4, 5, 8, 8, 12, 14, 18, 20, 29, 28, 40, 45, 54, 59, 82, 81, 108, 118, 141, 154, 204, 204, 255, 285, 339, 363, 458, 471, 580, 632, 741, 806, 983, 1015, 1225, 1341, 1562, 1667, 2003, 2107, 2491, 2712, 3101, 3344, 3962, 4182, 4860, 5270, 6022, 6482

Offset: 0

Gus Wiseman, Feb 17 2020

nonn

A sequence is alternately co-strong if either it is empty, equal to (1), or its run-lengths are weakly increasing (co-strong) and, when reversed, are themselves an alternately co-strong sequence.

Also the number of alternately strong integer partitions of n.

			The a(1) = 1 through a(8) = 12 reversed partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (12)   (13)    (14)     (15)      (16)       (17)
             (111)  (22)    (23)     (24)      (25)       (26)
                    (1111)  (122)    (33)      (34)       (35)
                            (11111)  (123)     (124)      (44)
                                     (222)     (133)      (125)
                                     (1122)    (1222)     (134)
                                     (111111)  (1111111)  (233)
                                                          (1133)
                                                          (2222)
                                                          (11222)
                                                          (11111111)
For example, starting with the composition y = (1,2,3,3,4,4,4) and repeatedly taking run-lengths and reversing gives (1,2,3,3,4,4,4) -> (3,2,1,1) -> (2,1,1) -> (2,1) -> (1,1) -> (2) -> (1). All of these have weakly increasing run-lengths and the last is equal to (1), so y is counted under a(21).

The total (instead of alternating) version is A316496.
Alternately strong partitions are A317256.
The case of ordinary (not reversed) partitions is (also) A317256.
The generalization to compositions is A332338.
Cf. A100883, A181819, A182850, A317257, A329744, A329746, A332275, A332289, A332292, A332340.

tniQ[q_]:=Or[q=={},q=={1},And[LessEqual@@Length/@Split[q],tniQ[Reverse[Length/@Split[q]]]]];
Table[Length[Select[Sort/@IntegerPartitions[n],tniQ]],{n,0,30}]

A317258 Heinz numbers of integer partitions that are not totally nonincreasing.

Original entry on oeis.org

18, 50, 54, 75, 90, 98, 108, 126, 147, 150, 162, 180, 198, 234, 242, 245, 250, 252, 270, 294, 300, 306, 324, 338, 342, 350, 363, 375, 378, 396, 414, 450, 468, 486, 490, 500, 507, 522, 525, 540, 550, 558, 578, 588, 594, 600, 605, 612, 630, 648, 650, 666, 684

Offset: 1

Gus Wiseman, Jul 25 2018

nonn

An integer partition is totally nonincreasing if either it is empty or a singleton or its multiplicities (where if x < y the multiplicity of x is counted prior to the multiplicity of y) are weakly decreasing and are themselves a totally nonincreasing integer partition.

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			Sequence of all integer partitions that are not totally nonincreasing begins: (221), (331), (2221), (332), (3221), (441), (22211), (4221), (442), (3321), (22221), (32211), (5221), (6221), (551), (443), (3331), (42211), (32221), (4421), (33211), (7221), (222211), (661), (8221), (4331), (552), (3332), (42221), (52211), (9221), (33221).

Cf. A056239, A071365, A100883, A112769, A181819, A182850, A242031, A296150, A305733, A317256, A317257.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
totincQ[q_]:=Or[Length[q]<=1,And[OrderedQ[Length/@Split[q]],totincQ[Reverse[Length/@Split[q]]]]];
Select[Range[1000],!totincQ[Reverse[primeMS[#]]]&]

A332274 Number of totally strong compositions of n.

Original entry on oeis.org

1, 1, 2, 4, 7, 11, 22, 33, 56, 93, 162, 264, 454, 765, 1307, 2237, 3849, 6611, 11472, 19831, 34446, 59865, 104293, 181561, 316924

Offset: 0

Gus Wiseman, Feb 11 2020

A sequence is totally strong if either it is empty, equal to (1), or its run-lengths are weakly decreasing (strong) and are themselves a totally strong sequence.
A composition of n is a finite sequence of positive integers with sum n.
Also the number of totally co-strong compositions of n.

			The a(1) = 1 through a(5) = 11 compositions:
  (1)  (2)   (3)    (4)     (5)
       (11)  (12)   (13)    (14)
             (21)   (22)    (23)
             (111)  (31)    (32)
                    (121)   (41)
                    (211)   (122)
                    (1111)  (131)
                            (212)
                            (311)
                            (2111)
                            (11111)

The case of partitions is A316496.
The co-strong case is A332274 (this sequence).
The case of reversed partitions is A332275.
The alternating version is A332338.
Cf. A100883, A107429, A317245, A317256, A317491, A329744, A332272, A332279, A332289, A332292, A332336, A332337, A332339, A332340.

tni[q_]:=Or[q=={},q=={1},And[GreaterEqual@@Length/@Split[q],tni[Length/@Split[q]]]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],tni]],{n,0,15}]

A335376 Heinz numbers of totally co-strong integer partitions.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71

Offset: 1

Gus Wiseman, Jun 04 2020

nonn

First differs from A242031 and A317257 in lacking 60.
A sequence is totally co-strong if it is empty, equal to (1), or its run-lengths are weakly increasing (co-strong) and are themselves a totally co-strong sequence.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
    1: {}          16: {1,1,1,1}     32: {1,1,1,1,1}
    2: {1}         17: {7}           33: {2,5}
    3: {2}         19: {8}           34: {1,7}
    4: {1,1}       20: {1,1,3}       35: {3,4}
    5: {3}         21: {2,4}         36: {1,1,2,2}
    6: {1,2}       22: {1,5}         37: {12}
    7: {4}         23: {9}           38: {1,8}
    8: {1,1,1}     24: {1,1,1,2}     39: {2,6}
    9: {2,2}       25: {3,3}         40: {1,1,1,3}
   10: {1,3}       26: {1,6}         41: {13}
   11: {5}         27: {2,2,2}       42: {1,2,4}
   12: {1,1,2}     28: {1,1,4}       43: {14}
   13: {6}         29: {10}          44: {1,1,5}
   14: {1,4}       30: {1,2,3}       45: {2,2,3}
   15: {2,3}       31: {11}          46: {1,9}
For example, 180 is the Heinz number of (3,2,2,1,1) which has run-lengths: (1,2,2) -> (1,2) -> (1,1) -> (2) -> (1). All of these are weakly increasing, so 180 is in the sequence.

Partitions with weakly increasing run-lengths are A100883.
Totally strong partitions are counted by A316496.
The strong version is A316529.
The version for reversed partitions is (also) A316529.
These partitions are counted by A332275.
The widely normal version is A332293.
The complement is A335377.
Cf. A100882, A133808, A181819, A182850, A242031, A305732, A317256, A317258, A329747, A332291.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
totcostrQ[q_]:=Or[Length[q]<=1,And[OrderedQ[Length/@Split[q]],totcostrQ[Length/@Split[q]]]];
Select[Range[100],totcostrQ[Reverse[primeMS[#]]]&]

A335377 Heinz numbers of non-totally co-strong integer partitions.

Original entry on oeis.org

18, 50, 54, 60, 75, 84, 90, 98, 108, 120, 126, 132, 140, 147, 150, 156, 162, 168, 198, 204, 220, 228, 234, 240, 242, 245, 250, 260, 264, 270, 276, 280, 294, 300, 306, 308, 312, 315, 324, 336, 338, 340, 342, 348, 350, 363, 364, 372, 375, 378, 380, 408, 414, 420

Offset: 1

Gus Wiseman, Jun 05 2020

nonn

A sequence is totally co-strong if it is empty, equal to (1), or its run-lengths are weakly increasing (co-strong) and are themselves a totally co-strong sequence.

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
   18: {1,2,2}        156: {1,1,2,6}        276: {1,1,2,9}
   50: {1,3,3}        162: {1,2,2,2,2}      280: {1,1,1,3,4}
   54: {1,2,2,2}      168: {1,1,1,2,4}      294: {1,2,4,4}
   60: {1,1,2,3}      198: {1,2,2,5}        300: {1,1,2,3,3}
   75: {2,3,3}        204: {1,1,2,7}        306: {1,2,2,7}
   84: {1,1,2,4}      220: {1,1,3,5}        308: {1,1,4,5}
   90: {1,2,2,3}      228: {1,1,2,8}        312: {1,1,1,2,6}
   98: {1,4,4}        234: {1,2,2,6}        315: {2,2,3,4}
  108: {1,1,2,2,2}    240: {1,1,1,1,2,3}    324: {1,1,2,2,2,2}
  120: {1,1,1,2,3}    242: {1,5,5}          336: {1,1,1,1,2,4}
  126: {1,2,2,4}      245: {3,4,4}          338: {1,6,6}
  132: {1,1,2,5}      250: {1,3,3,3}        340: {1,1,3,7}
  140: {1,1,3,4}      260: {1,1,3,6}        342: {1,2,2,8}
  147: {2,4,4}        264: {1,1,1,2,5}      348: {1,1,2,10}
  150: {1,2,3,3}      270: {1,2,2,2,3}      350: {1,3,3,4}
For example, 60 is the Heinz number of (3,2,1,1), which has run-lengths: (1,1,2) -> (2,1) -> (1,1) -> (2) -> (1). Since (2,1) is not weakly increasing, 60 is in the sequence.

Partitions with weakly increasing run-lengths are counted by A100883.
Totally strong partitions are counted by A316496.
Heinz numbers of totally strong partitions are A316529.
The version for reversed partitions is A316597.
The strong version is (also) A316597.
The alternating version is A317258.
Totally co-strong partitions are counted by A332275.
The complement is A335376.
Cf. A100882, A181819, A182850, A242031, A305732, A317256, A329747, A332291, A332293, A332339.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
totcostrQ[q_]:=Or[Length[q]<=1,And[OrderedQ[Length/@Split[q]],totcostrQ[Length/@Split[q]]]];
Select[Range[100],!totcostrQ[Reverse[primeMS[#]]]&]

A334969 Heinz numbers of alternately strong integer partitions.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83

Offset: 1

Gus Wiseman, Jun 09 2020

nonn

First differs from A304678 in lacking 450.
First differs from A316529 (the totally strong version) in having 150.
A sequence is alternately strong if either it is empty, equal to (1), or its run-lengths are weakly decreasing (strong) and, when reversed, are themselves an alternately strong sequence.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence does not contain 450, the Heinz number of (3,3,2,2,1), because, while the multiplicities are weakly decreasing, their reverse (1,2,2) does not have weakly decreasing multiplicities.

The co-strong version is A317257.
The case of reversed partitions is (also) A317257.
The total version is A316529.
These partitions are counted by A332339.
Totally co-strong partitions are counted by A332275.
Alternately co-strong compositions are counted by A332338.
Cf. A000041, A100883, A181819, A182850, A182857, A304660, A305563, A316496, A317256, A332292, A332340.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
altstrQ[q_]:=Or[q=={},q=={1},And[GreaterEqual@@Length/@Split[q],altstrQ[Reverse[Length/@Split[q]]]]];
Select[Range[100],altstrQ[Reverse[primeMS[#]]]&]

cp's OEIS Frontend

A332339 Number of alternately co-strong reversed integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A317258 Heinz numbers of integer partitions that are not totally nonincreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A332274 Number of totally strong compositions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A335376 Heinz numbers of totally co-strong integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A335377 Heinz numbers of non-totally co-strong integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A334969 Heinz numbers of alternately strong integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica