(dotimes(x 763)(and(=(length(set's(loop for p from 2 to 127 if(=(1-(gcd(!(1- p))p))(rem x p)0)collect p)))3)(=(apply'* s)x)(format t"~D
"x)))