OFFSET
0,6
EXAMPLE
The a(0) = 0 through a(9) = 15 partitions (empty columns shown as dots):
. . . (21) (31) (32) (42) (43) (53) (54)
(41) (51) (52) (62) (63)
(321) (61) (71) (72)
(2211) (421) (431) (81)
(3211) (521) (432)
(3221) (531)
(3311) (621)
(4211) (3321)
(32111) (4221)
(4311)
(5211)
(32211)
(42111)
(222111)
(321111)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Length/@Split[#]&]], {n, 0, 30}]
CROSSREFS
A098859 counts the complement.
A130092 gives the Heinz numbers of these partitions.
A001222 counts prime factors with multiplicity.
A013929 lists nonsquarefree numbers.
A047966 counts uniform partitions.
A047967 counts non-strict partitions.
A071625 counts distinct prime multiplicities.
A130091 lists numbers with distinct prime multiplicities.
A181796 counts divisors with distinct prime multiplicities.
A327498 gives the maximum divisor with distinct prime multiplicities.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 09 2020
STATUS
approved