**TI92P*mainFunction file 06/12/05, 23:43Rsdiv2Z(n) Func Local m,f,e,s,i 1s lprimexp(n)m matlist(m[1])f matlist(m[2])e For i,1,dim(f) (f[i]^(e[i]+1)-1)/(f[i]-1)*ss EndFor Return s EndFunc/