fonction fpdiv(N) //renvoie la liste des diviseurs de n en utilisant factprem local L1,L2,L3,D,ex,S factprem(N)->L3 dim(L3)->S {1}->L1 pour K de 1 a S-1 pas 2 faire {}->L2 L3[K]->D L3[K+1]->ex pour J de 1 a ex faire concat(L2,L1*(D^J))->L2 } concat(L1,L2)->L1 } retourne(L1) }