function [vec] = equiv2( l )

mem = l;
        incr = 0;
        while (mem > 1)
            mem = mem/3;
            incr = incr+1;
        end
    vec(1) = mem;
    vec(2) = incr;

end

