OFFSET
0,3
COMMENTS
These partitions are characterized by either being a twin (x,x) or having a wiggly permutation. A sequence is wiggly if it is alternately strictly increasing and strictly decreasing, starting with either. For example, the partition (3,2,2,2,1) has no wiggly permutations, even though it has anti-run permutations (2,3,2,1,2) and (2,1,2,3,2).
LINKS
Joseph Likar, Table of n, a(n) for n = 0..1000
EXAMPLE
The a(1) = 1 through a(8) = 15 partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(1,1) (2,1) (2,2) (3,2) (3,3) (4,3) (4,4)
(3,1) (4,1) (4,2) (5,2) (5,3)
(2,1,1) (2,2,1) (5,1) (6,1) (6,2)
(3,1,1) (3,2,1) (3,2,2) (7,1)
(4,1,1) (3,3,1) (3,3,2)
(2,2,1,1) (4,2,1) (4,2,2)
(5,1,1) (4,3,1)
(3,2,1,1) (5,2,1)
(2,2,1,1,1) (6,1,1)
(3,2,2,1)
(3,3,1,1)
(4,2,1,1)
(2,2,2,1,1)
(3,2,1,1,1)
For example, the partition (3,2,2,1) has the two wiggly permutations (2,3,1,2) and (2,1,3,2), so is counted under a(8).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Select[Permutations[#], !MatchQ[#, {___, x_, y_, z_, ___}/; x<=y<=z||x>=y>=z]&]!={}&]], {n, 0, 15}]
CROSSREFS
The complement is counted by A344654.
A001250 counts wiggly permutations.
A003242 counts anti-run compositions.
A344604 counts wiggly compositions with twins.
A344605 counts wiggly patterns with twins.
A344606 counts wiggly permutations of prime indices with twins.
A344614 counts compositions with no consecutive strictly monotone triple.
A345164 counts wiggly permutations of prime indices.
A345192 counts non-wiggly compositions.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 12 2021
EXTENSIONS
a(26)-a(32) from Robert Price, Jun 22 2021
a(33) onwards from Joseph Likar, Sep 05 2023
STATUS
proposed