OFFSET
0,9
COMMENTS
Also the number of non-weakly alternating non-strict integer partitions of n, where we define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either. This sequence involves the somewhat degenerate case where no strict increases are allowed.
EXAMPLE
The a(7) = 1 through a(11) = 15 partitions:
(3211) (4211) (3321) (5311) (4322)
(32111) (4311) (6211) (4421)
(5211) (32221) (5411)
(42111) (33211) (6311)
(321111) (43111) (7211)
(52111) (42221)
(421111) (43211)
(3211111) (53111)
(62111)
(322211)
(332111)
(431111)
(521111)
(4211111)
(32111111)
MATHEMATICA
whkQ[y_]:=And@@Table[If[EvenQ[m], y[[m]]<=y[[m+1]], y[[m]]>=y[[m+1]]], {m, 1, Length[y]-1}];
Table[Length[Select[IntegerPartitions[n], !whkQ[#]&&!whkQ[-#]&&!UnsameQ@@#&]], {n, 0, 30}]
CROSSREFS
Counting all non-strict partitions gives A047967.
The complement in non-strict partitions is A349795.
A003242 = Carlitz (anti-run) compositions.
A096441 = weakly alternating 0-appended partitions.
A349052 = weakly alternating compositions.
A349056 = weakly alternating permutations of prime indices.
A349798 = weakly but not strongly alternating permutations of prime indices.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 25 2021
STATUS
approved