**TI92P*prgm_seFunction file 07/07/08, 11:02Rdivis¿¥Ze(n) Func Local k,l1 {1}l1 For k,2,n If int(n/k)=n/k augment(l1,{k})l1 EndFor l1 EndFuncäåÜY