OFFSET
0,3
EXAMPLE
The a(1) = 1 through a(8) = 12 integer partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (32) (33) (43) (44)
(31) (311) (51) (52) (53)
(1111) (11111) (222) (61) (62)
(3111) (322) (71)
(111111) (331) (332)
(511) (611)
(31111) (2222)
(1111111) (3311)
(5111)
(311111)
(11111111)
MATHEMATICA
stableQ[u_, Q_]:=!Apply[Or, Outer[#1=!=#2&&Q[#1, #2]&, u, u, 1], {0, 1}];
Table[Length[Select[IntegerPartitions[n], stableQ[#, IntegerQ[Log[2, #1/#2]]&]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 04 2019
STATUS
approved