Program: (PARI) va(n) = my(u=[]); for(i=0, n-1, if(!sum(j=0, n-1, gcd(j,n)==1&&issquare(Mod(j,n))&&(i*j)%n