OFFSET
1,6
COMMENTS
A finite sequence is periodic if its cyclic rotations are not all different.
EXAMPLE
The a(n) partitions for n = 3, 6, 8, 9, 12, 15, 16:
111 222 2222 333 444 555 4444
321 11111111 432 543 654 7531
111111 531 642 753 44332
32211 741 852 3332221
111111111 3333 951 4332211
222222 33333 22222222
3222111 54321 1111111111111111
111111111111 322221111
111111111111111
MATHEMATICA
aperQ[q_]:=Array[RotateRight[q, #1]&, Length[q], 1, UnsameQ];
Table[Length[Select[IntegerPartitions[n], !aperQ[Differences[#]]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 10 2019
STATUS
approved