| 0, 0, 0, 0, 0, 1, 1, 2, 3, 5, 7, 12, 16, 24, 33, 47, 63, 89, 117, 159, 209, 278, 360, 474, 607, 786, 1001, 1280, 1615, 2049, 2565, 3222, 4011, 4998, 6180, 7653, 9407, 11571, 14154, 17308, 21063, 25630, 31044, 37586, 45339, 54646, 65646, 78804, 94305, 112761, 134473
(list; graph; listen)
|
|
|
OFFSET
|
1,8
|
|
|
MATHEMATICA
|
<< DiscreteMath`Combinatorica`; Table[ Count[ Flatten[ Partitions[n]], 6], {n, 1, 52} ]
|
|
CROSSREFS
|
Cf. A066633, A024786, A024787, A024788, A024789, A024791, A024792, A024793, A024794.
Sequence in context: A078912 A105930 A122622 this_sequence A027959 A060730 A123569
Adjacent sequences: A024787 A024788 A024789 this_sequence A024791 A024792 A024793
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
