A332297 -id:A332297 - cp's OEIS frontend

A332279 Number of widely totally normal compositions of n.

1, 1, 1, 3, 4, 6, 12, 22, 29, 62, 119, 208, 368, 650, 1197, 2173, 3895, 7022, 12698, 22940, 41564

Offset: 0

Gus Wiseman, Feb 12 2020

A sequence is widely totally normal if either it is all 1's (wide) or it covers an initial interval of positive integers (normal) and has widely totally normal run-lengths.

A composition of n is a finite sequence of positive integers with sum n.

			The a(1) = 1 through a(7) = 22 compositions:
  (1)  (11)  (12)   (112)   (122)    (123)     (1123)
             (21)   (121)   (212)    (132)     (1132)
             (111)  (211)   (221)    (213)     (1213)
                    (1111)  (1121)   (231)     (1231)
                            (1211)   (312)     (1312)
                            (11111)  (321)     (1321)
                                     (1212)    (2113)
                                     (1221)    (2122)
                                     (2112)    (2131)
                                     (2121)    (2212)
                                     (11211)   (2311)
                                     (111111)  (3112)
                                               (3121)
                                               (3211)
                                               (11221)
                                               (12112)
                                               (12121)
                                               (12211)
                                               (21121)
                                               (111211)
                                               (112111)
                                               (1111111)
For example, starting with y = (3,2,1,1,2,2,2,1,2,1,1,1,1) and repeatedly taking run-lengths gives y -> (1,1,2,3,1,1,4) -> (2,1,1,2,1) -> (1,2,1,1) -> (1,1,2) -> (2,1) -> (1,1). These are all normal and the last is all 1's, so y is counted under a(20).

Normal compositions are A107429.
Constantly recursively normal partitions are A332272.
The case of partitions is A332277.
The case of reversed partitions is (also) A332277.
The narrow version is A332296.
The strong version is A332337.
The co-strong version is (also) A332337.
Cf. A001462, A181819, A182850, A317081, A317245, A317491, A329744, A332276, A332289, A332292, A332295, A332297, A332336, A332340.

recnQ[ptn_]:=Or[ptn=={},Union[ptn]=={1},And[Union[ptn]==Range[Max[ptn]],recnQ[Length/@Split[ptn]]]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],recnQ]],{n,0,10}]

For n > 1, a(n) = A332296(n) - 1.

A316529 Heinz numbers of totally 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, Jul 29 2018

nonn

First differs from A304678 at a(115) = 151, A304678(115) = 150.
The alternating version first differs from this sequence in having 150 and lacking 450.
An integer partition 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 partition.
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.

			Starting with (3,3,2,1), which has Heinz number 150, and repeatedly taking run-lengths gives (3,3,2,1) -> (2,1,1) -> (1,2), so 150 is not in the sequence.
Starting with (3,3,2,2,1), which has Heinz number 450, and repeatedly taking run-lengths gives (3,3,2,2,1) -> (2,2,1) -> (2,1) -> (1,1) -> (2) -> (1), so 450 is in the sequence.

Cf. A056239, A181819, A182850, A242031, A296150, A305732, A317246.
The enumeration of these partitions by sum is A316496.
The complement is A316597.
The widely normal version is A332291.
The dual version is A335376.
Partitions with weakly decreasing run-lengths are A100882.
Cf. A025487, A100883, A133808, A317257, A332275, A332293, A332297.

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

Updated with corrected terminology by Gus Wiseman, Mar 08 2020

cp's OEIS Frontend

A332279 Number of widely totally normal compositions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula