for n=1:10000
    if sum(diviseurs(n))==2*n then
        afficher(" n = " + string(n))
        L=factorise(n)
        afficher("sa décomposition : "); afficher(L)
    end
end
