A332292 Number of widely alternately strongly normal integer partitions of n.
1, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1
Offset: 0
Examples
The a(1) = 1, a(3) = 2, and a(21) = 3 partitions: (1) (21) (654321) (111) (4443321) (111111111111111111111) For example, starting with the partition y = (4,4,4,3,3,2,1) and repeatedly taking run-lengths and reversing gives (4,4,4,3,3,2,1) -> (1,1,2,3) -> (1,1,2) -> (1,2) -> (1,1). All of these are normal with weakly decreasing run-lengths, and the last is all 1's, so y is counted under a(21).
Crossrefs
Programs
-
Mathematica
totnQ[ptn_]:=Or[ptn=={},Union[ptn]=={1},And[Union[ptn]==Range[Max[ptn]],GreaterEqual@@Length/@Split[ptn],totnQ[Reverse[Length/@Split[ptn]]]]]; Table[Length[Select[IntegerPartitions[n],totnQ]],{n,0,30}]
Extensions
a(71)-a(77) from Jinyuan Wang, Jun 26 2020
Comments