OFFSET
0,5
LINKS
Fausto A. C. Cariboni, Table of n, a(n) for n = 0..400
EXAMPLE
The a(1) = 1 through a(12) = 8 strict integer partitions (A = 10, B = 11, C = 12):
(1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C)
(31) (32) (51) (43) (53) (54) (64) (65) (75)
(52) (62) (72) (73) (74) (93)
(61) (71) (531) (91) (83) (A2)
(532) (92) (B1)
(A1) (543)
(731) (651)
(732)
MATHEMATICA
stableQ[u_, Q_]:=!Apply[Or, Outer[#1=!=#2&&Q[#1, #2]&, u, u, 1], {0, 1}];
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&stableQ[#, IntegerQ[Log[2, #1/#2]]&]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 04 2019
STATUS
approved