//primes max=13; pp=3; prod(3)=9; m=5; while (m<=max) {prod(m)=m*m; i=0; n=3; while (n