% Collatz Funktion
function R = collatz(N)

R = zeros(N, 3);

for i = 1:N
    n = i;
    anz_schritte = 0;
    max_n = n;
    while n > 1
        if mod(n, 2) == 0
            n = n / 2;
        else
            n = 3*n + 1;
        end
        anz_schritte = anz_schritte + 1;
        if n > max_n
            max_n = n;
        end
    end
    R(i, :) = [i, anz_schritte, max_n];
end

end

