OFFSET
0,5
EXAMPLE
The a(2) = 1 through a(11) = 12 integer partitions (A = 10, B = 11):
(2) (3) (4) (5) (6) (7) (8) (9) (A) (B)
(22) (32) (33) (43) (44) (54) (55) (65)
(222) (52) (53) (63) (64) (74)
(322) (62) (72) (73) (83)
(332) (333) (433) (92)
(2222) (522) (532) (443)
(3222) (622) (533)
(3322) (632)
(22222) (722)
(3332)
(5222)
(32222)
MATHEMATICA
stableQ[u_, Q_]:=!Apply[Or, Outer[#1=!=#2&&Q[#1, #2]&, u, u, 1], {0, 1}];
Table[Length[Select[IntegerPartitions[n], And[FreeQ[#, 1], stableQ[#, IntegerQ[Log[#1, #2]]&]]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 04 2019
STATUS
approved