OFFSET
0,6
LINKS
Fausto A. C. Cariboni, Table of n, a(n) for n = 0..350
EXAMPLE
The a(2) = 1 through a(13) = 8 strict integer partitions (A = 10, B = 11, C = 12, D = 13):
(2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D)
(32) (43) (53) (54) (64) (65) (75) (76)
(52) (62) (63) (73) (74) (84) (85)
(72) (532) (83) (A2) (94)
(92) (543) (A3)
(632) (732) (B2)
(643)
(652)
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], UnsameQ@@#, stableQ[#, IntegerQ[Log[#1, #2]]&]]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 04 2019
STATUS
approved