| 0, 0, 0, 0, 0, 0, 1, 1, 2, 3, 5, 7, 11, 16, 23, 32, 45, 61, 84, 112, 151, 199, 263, 342, 446, 574, 739, 943, 1201, 1518, 1917, 2404, 3010, 3749, 4661, 5766, 7122, 8759, 10753, 13153, 16059, 19544, 23743, 28759, 34774, 41938, 50491, 60642, 72718, 87004, 103934, 123908
(list; graph; listen)
|
|
|
OFFSET
|
1,9
|
|
|
MATHEMATICA
|
<< DiscreteMath`Combinatorica`; Table[ Count[ Flatten[ Partitions[n]], 7], {n, 1, 52} ]
|
|
CROSSREFS
|
Cf. A066633, A024786, A024787, A024788, A024789, A024790, A024792, A024793, A024794.
Sequence in context: A055771 A052955 A022480 this_sequence A118084 A117590 A023435
Adjacent sequences: A024788 A024789 A024790 this_sequence A024792 A024793 A024794
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
