| 0, 0, 1, 1, 2, 4, 6, 9, 15, 21, 31, 45, 63, 87, 122, 164, 222, 298, 395, 519, 683, 885, 1146, 1475, 1887, 2401, 3050, 3845, 4837, 6060, 7563, 9402, 11664, 14405, 17751, 21807, 26715, 32634, 39784, 48352, 58649, 70969, 85690, 103232, 124143, 148951, 178407, 213277, 254509
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
MATHEMATICA
|
<< DiscreteMath`Combinatorica`; Table[ Count[ Flatten[ Partitions[n]], 3], {n, 1, 50} ]
|
|
CROSSREFS
|
Cf. A066633, A024786, A024788, A024789, A024790, A024791, A024792, A024793, A024794.
Adjacent sequences: A024784 A024785 A024786 this_sequence A024788 A024789 A024790
Sequence in context: A024849 A090483 A127740 this_sequence A076922 A057602 A006498
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
