login
A127174
Numbers n of the form 3*k such that partition number of n is also of the form 3*k.
0
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.
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
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 05 2007
STATUS
approved