|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|