OFFSET
1,5
EXAMPLE
The a(4) = 1 through a(11) = 11 partitions:
1111 32 111111 43 53 54 73 65
11111 52 332 72 433 74
322 11111111 522 532 83
1111111 3222 3322 92
111111111 1111111111 443
533
722
3332
5222
32222
11111111111
MATHEMATICA
stableQ[u_, Q_]:=!Apply[Or, Outer[#1=!=#2&&Q[#1, #2]&, u, u, 1], {0, 1}];
Table[Length[Select[IntegerPartitions[n], GCD@@#==1&&stableQ[#, Divisible]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 29 2019
STATUS
approved