function generuj_mnozinu (k)

if k<=0
    error('K musí byt kladne cislo!')
end
if length(k)~=1
    error('K musí byt cislo, ne vektor!')
end
if mod(k,1)~=0
    error('K musí cele cislo!')
end

out=[1];
x=patro(1);
out=[out x];  
while size(out,2)<k
    x=patro(x);
    out=[out x];
end
out=sort(out);
out=out(1:k);

out

function x = patro(y)
    x=ones(1,size(y,2)*2);
    for i=1:size(y,2)
        x(i*2-1)=y(i)*2+1;
        x(i*2)=y(i)*3+1;
    end
end

end