login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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, 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 (list; graph; refs; listen; history; text; internal format)
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 A035113 A106263

Adjacent sequences: A035535 A035536 A035537 * A035539 A035540 A035541

KEYWORD

nonn

AUTHOR

Olivier Gérard

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 26 09:21 EDT 2023. Contains 361529 sequences. (Running on oeis4.)