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