FUNCTION :   checkprod - check q-series is a nice product
                

CALLING SEQUENCE :  checkprod(f,M,Q)
                    

PARAMETERS :   f - q-series
            M,q  - positive integers

SYNOPSIS :   
        Computes first Q exponents in the formal product of f.
        Returns [c,1] if absolute vale of these exponents is less than M.
        Here q^c is smallest power of q of f.

EXAMPLES :   

> with(qseries):
> V:=add(q^(n^2)/aqprod(q^n,q,n),n=0..10):
> F:=series(V,q,101):
> checkprod(F,10,20);
                                     [0, 1]
> checkprod(F,10,50);
                                   [0, 1150]
> prodmake(F,q,50,list);
[-1, 0, 0, -1, 1, -1, 0, 1, -2, 1, 0, -1, 2, -3, 2, -1, -3, 7, -6, 2, 2, -9, 13,
    -11, 2, 11, -26, 32, -18, -11, 43, -69, 65, -19, -56, 132, -171, 124, 22,
    -222, 381, -392, 172, 260, -736, 999, -804, 29, 1150]


DISCUSSION :

SEE ALSO :  

XXXXX