OFFSET
0,4
COMMENTS
These are partitions with all even run-lengths except for the last, which is odd.
EXAMPLE
The a(1) = 1 through a(9) = 7 partitions:
(1) (2) (3) (4) (5) (6) (7) (8) (9)
(111) (221) (222) (331) (332) (333)
(11111) (22111) (441)
(1111111) (22221)
(33111)
(2211111)
(111111111)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], OddQ[Length[#]]&&And@@Table[#[[i]]==#[[i+1]], {i, 1, Length[#]-1, 2}]&]], {n, 0, 30}]
CROSSREFS
The ordered version (compositions) is A016116 shifted right once.
All odd-length partitions are counted by A027193.
Replacing equal with unequal relations appears to give:
- any length: A122129
- odd length: A122130
- even length: A351008
- opposite any length: A122135
- opposite odd length: A351595
- opposite even length: A122134
The case that is also strict at even indices is:
- any length: A351005
- odd length: A351593
- even length: A035457
- opposite any length: A351006
- opposite odd length: A053251
- opposite even length: A351007
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 24 2022
STATUS
approved