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