n=input("n = ")
k=1;Fact=[];
while reste(n,2)==0
    Fact=[Fact,2];n=n/2
end
while reste(n,3)==0
    Fact=[Fact,3];n=n/3
end
while n >1
    Div=6*k-1
    if reste(n,Div)==0 then
        Fact=[Fact,Div]
        n=n/Div
    else 
        Div=6*k+1
        if reste(n,Div)==0 then
            Fact=[Fact,Div]
            n=n/Div
        else
        if Div+4<=sqrt(n) then
            k=k+1
        else Fact=[Fact,n]
            n=1
        end
        end 
    end
end
afficher(Fact)