| 0, 0, 0, 1, 1, 2, 3, 6, 8, 13, 18, 28, 38, 55, 74, 105, 139, 190, 250, 336, 436, 575, 740, 963, 1228, 1577, 1995, 2538, 3186, 4013, 5005, 6256, 7751, 9617, 11847, 14605, 17894, 21927, 26730, 32582, 39531, 47942, 57915, 69920, 84114, 101116, 121176, 145095, 173248
(list; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
MATHEMATICA
|
<< DiscreteMath`Combinatorica`; Table[ Count[ Flatten[ Partitions[n]], 4], {n, 1, 50} ]
|
|
CROSSREFS
|
Cf. A066633, A024786, A024787, A024789, A024790, A024791, A024792, A024793, A024794.
Sequence in context: A036957 A022943 A068491 this_sequence A004101 A003405 A153918
Adjacent sequences: A024785 A024786 A024787 this_sequence A024789 A024790 A024791
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
