|
|
A242362
|
|
Plane partitions into odd parts.
|
|
0
|
|
|
1, 1, 2, 4, 7, 11, 20, 30, 50, 75, 121, 176, 276, 398, 604, 864, 1285, 1814, 2652, 3713, 5339, 7417, 10526, 14500, 20349, 27836, 38653, 52528, 72291, 97612, 133249, 178889, 242379, 323634, 435557, 578579, 773877, 1023074, 1360565
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
EXAMPLE
|
Example for n=4:
((3,1)), ((3)(1)), ((1,1,1,1)), ((1,1,1),(1)),
((1,1),(1,1)), ((1,1),(1),(1)), ((1),(1),(1),(1)).
|
|
MATHEMATICA
|
<< Combinatorica`
pilings[par_List]:=Module[{tel, alles}, tel=Length[par]; alles=List/@Partitions[par[[1]]];
Do[alles=Flatten[Function[argu, (Flatten[{argu, {#1}}, 1]&)/@Select[Partitions[par[[i]]], Length[#1]<=Length[Last[argu]]&&And@@Thread[#1<=Take[Last[argu], Length[#1]]]&]]/@alles, 1], {i, 2, tel}]; alles];
Table[Tr[Count[pilings[#], q_/; FreeQ[q, _?EvenQ]]&/@Partitions[w]], {w, 24}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|