|
| |
|
|
A015746
|
|
Number of partitions of n into distinct parts, none being 4.
|
|
9
|
|
|
|
1, 1, 1, 2, 1, 2, 3, 3, 5, 6, 7, 9, 10, 12, 15, 18, 22, 26, 31, 36, 42, 50, 58, 68, 80, 92, 107, 124, 142, 164, 189, 216, 248, 284, 323, 369, 420, 476, 541, 613, 693, 784, 885, 997, 1123, 1264, 1419, 1593, 1787, 2000, 2239, 2504, 2795, 3120, 3479, 3874, 4313
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,4
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
|
|
|
FORMULA
|
a(n) = A015739(n+4). - Michel Marcus, Feb 20 2014
|
|
|
MATHEMATICA
|
CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^4), {q, 0, 60}], q]
Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 4]], {n, 0, 56}] (* Robert Price, May 17 2020 *)
|
|
|
CROSSREFS
|
Cf. A025147, A015744, A015745, A015750, A015753, A015754, A015755.
Sequence in context: A239493 A331849 A015739 * A109266 A022876 A242692
Adjacent sequences: A015743 A015744 A015745 * A015747 A015748 A015749
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Clark Kimberling
|
|
|
EXTENSIONS
|
Corrected and extended by Dean Hickerson, Oct 10, 2001
|
|
|
STATUS
|
approved
|
| |
|
|
