| 0, 0, 0, 0, 1, 1, 2, 3, 5, 8, 12, 17, 25, 35, 50, 68, 94, 126, 170, 226, 299, 391, 511, 660, 853, 1091, 1393, 1766, 2235, 2811, 3527, 4403, 5484, 6800, 8415, 10369, 12752, 15627, 19110, 23298, 28346, 34389, 41642, 50295, 60636, 72929, 87563, 104903, 125470, 149770
(list; graph; listen)
|
|
|
OFFSET
|
1,7
|
|
|
MATHEMATICA
|
<< DiscreteMath`Combinatorica`; Table[ Count[ Flatten[ Partitions[n]], 5], {n, 1, 50} ]
|
|
CROSSREFS
|
Cf. A066633, A024786, A024787, A024788, A024790, A024791, A024792, A024793, A024794.
Sequence in context: A089071 A061535 A129504 this_sequence A111388 A127884 A105858
Adjacent sequences: A024786 A024787 A024788 this_sequence A024790 A024791 A024792
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
