Qflips := proc( n )
        local a := Array( 1 .. n );
        a[ 1 ] := 1;
        a[ 2 ] := 1;
        for local i from 3 to n do
                a[ i ] := a[ i - a[ i - 1 ] ] + a[ i - a[ i - 2 ] ]
        end do;
        local flips := 0;
        for i from 2 to n do
                if a[ i ] < a[ i - 1 ] then
                        flips := 1 + flips
                end if
        end do;
        flips
end proc: