[seqfan] Re: plane partitions into odd parts

[Wouter Meeussen]

checks ok:
Mathematica:

pilings[par_List] := Module[{}, tel = Length[par]; alles = List /@ 
Partitions[par[[1]]];
    Do[alles = Flatten[Function[parit, (Flatten[{parit, {#1}}, 1] & ) /@ 
Select[Partitions[par[[i]]], Length[#1] <= Length[Last[parit]] &&  And @@ 
Thread[#1 <= Take[Last[parit], Length[#1]]] & ]] /@ alles, 1], {i, 2, tel}]; 
alles] ;

Table[Count[pilings[#], 
_/;FreeQ[q,_?EvenQ]     ]&/@Partitions[w],{w,24}];
gives after 2 minutes:
{1,2,4,7,11,20,30,50,75,121,176,276,398,604,864,1285,1814,2652,3713,5339,7417,10526,14500,20349}

Wouter.


-----Original Message----- 
From: David Newman
Sent: Sunday, May 11, 2014 7:24 AM
To: Sequence Fanatics Discussion list
Subject: [seqfan] plane partitions into odd parts

Can someone check me on the number of plane partitions of n into odd
parts.  The sequence that I get is:

1,2,4,7,11,20,30 which doesn't seem to be in the OEIS.

Example for n=4

31

3
1

1111

111
1

11
11

11
1
1

1
1
1
1

_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/