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,1

Comments

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

Links

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

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&]

Crossrefs

Cf. A000041, A008585, A083214, A087183.

Sequence in context: A050839 A032640 A245202 * A251535 A191177 A275450

Adjacent sequences: A127171 A127172 A127173 * A127175 A127176 A127177

Keyword

nonn

Author

Zak Seidov, Apr 05 2007

Status

approved