n=2; flag=%F while ~flag n = n+2; if pmodulo(n*n,1000000)==269696 then flag=%T; end end disp(n);