**TI92P*prgm_seProgram file 07/07/08, 11:03ReratosqZ() Prgm Local i,j,m,l1,x,k,y ClrIO Prompt n int((n-1)/2)m seq(2*i+1,i,1,m)l1 1i:3x While x(n) ik For j,i+1,dim(l1) l1[j]y If int(y/x)y/x Then k+1k yl1[k] EndIf EndFor i+1i l1[i]x mid(l1,1,k)l1 EndWhile augment({2},l1)l1 Pause l1 EndPrgmaO