A035538 Number of partitions of n with equal nonzero number of parts congruent to each of 0 and 2 (mod 3)

0, 0, 0, 0, 0, 1, 1, 1, 3, 4, 5, 8, 11, 14, 19, 26, 34, 43, 56, 72, 90, 114, 145, 178, 222, 277, 338, 414, 511, 619, 751, 913, 1101, 1324, 1595, 1909, 2282, 2724, 3243, 3850, 4569, 5406, 6387, 7530, 8869, 10423, 12231, 14332, 16775, 19591, 22864, 26643, 31000

Offset

0,9

Links

Table of n, a(n) for n=0..52.

Mathematica

equalQ[partit_] := With[{ t = Total[Switch[Mod[#, 3], 0, {1, 0, 0}, 1, {0, 1, 0}, 2, {0, 0, 1}]& /@ partit]}, t[[1]] > 0 && t[[1]] == t[[3]]]; a[n_] := Select[IntegerPartitions[n], equalQ] // Length; a[0] = 0; Table[an = a[n]; Print["a(", n, ") = ", an]; an, {n, 0, 52}] (* Jean-François Alcover, Dec 07 2016 *)

Crossrefs

Sequence in context: A047599 A332414 A050846 * A039881 A364652 A035113

Adjacent sequences: A035535 A035536 A035537 * A035539 A035540 A035541

Keyword

nonn

Author

Olivier Gérard

Status

approved