FUNCTION:  partitions[ptnOE] - partitions enumerated by OE(n)
 
CALLING SEQUENCE:  ptnOE(ptn)
 
PARAMETERS:    ptn -  partition
 
GLOBAL VARIABLES: NONE

SYNOPSIS:  
   Returns true if ptn is a partition has all even parts are less than 
   all odd
                    
EXAMPLES:  
                    
> with(combinat):
> with(partitions):
> with(qseries):
> ptns:=partition(8):
> ptns1:=select(ptnOE,ptns);
ptns1 := [[1, 1, 1, 1, 1, 1, 1, 1], [2, 2, 2, 2], [1, 1, 1, 1, 1, 3],
    [1, 1, 3, 3], [2, 3, 3], [2, 2, 4], [4, 4], [1, 1, 1, 5], [3, 5], [2, 6],
    [1, 7], [8]]

> nops(ptns), nops(ptns1);
                                     22, 12

DISCUSSION:  Of the 22 oartitions of 8 only 12 satisfy the condition and
             they are listed
                    
SEE ALSO:  POE