A127174 Numbers n of the form 3*k such that partition number of n is also of the form 3*k.

3, 9, 21, 24, 30, 33, 39, 48, 51, 57, 63, 75, 102, 111, 129, 138, 147, 162, 180, 189, 195, 198, 207, 222, 225, 231, 240, 249, 267, 270, 288, 297, 330, 336, 339, 342, 348, 351, 354, 357, 363, 369, 372, 381, 396, 399, 402, 405, 411, 429, 432, 465, 468, 477, 480

Offset: 1

Author

Zak Seidov, Apr 05 2007

Keywords

• nonn

Comments

Subset of A083214. Or, intersection of A083214 and A008585.

Crossrefs

Cf. A000041, A008585, A083214, A087183.

Programs

Maple

with(combinat): a:=proc(k): if numbpart(3*k) mod 3 = 0 then 3*k else fi end: seq(a(n),n=1..200); # Emeric Deutsch, Apr 16 2007

Mathematica

Select[Range[3,600,3],Mod[PartitionsP[ # ],3]==0&]