A284613 Number of partitions of n such that the (sum of distinct odd parts) <= n/2.

0, 2, 2, 4, 4, 8, 9, 18, 22, 32, 40, 61, 75, 99, 126, 176, 215, 300, 375, 491, 602, 786, 971, 1235, 1491, 1936, 2359, 2917, 3499, 4423, 5326, 6684, 7956, 9917, 11833, 14511, 17155, 20987, 24845, 30387, 35688, 43221, 50803, 61535, 71893, 85909, 100369, 120887

Offset

1,2

Links

Table of n, a(n) for n=1..48.

Example

a(4) counts these 4 partitions: 4, 31, 211, 1111.

Mathematica

Table[p = IntegerPartitions[n];
 Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], OddQ]], {k, Length[p]}], # <= n/2 &]], {n, 55}]

Crossrefs

Cf. A284612, A284614, A284615.

Sequence in context: A120803 A316624 A318770 * A000011 A187213 A022476

Adjacent sequences: A284610 A284611 A284612 * A284614 A284615 A284616

Keyword

nonn,easy

Author

Clark Kimberling, Mar 30 2017

Status

approved