a=46080; c=(1); n=2; s=2#a;cycle:d=a/n^2;if(a%n^2==0, c=sort(c,n),0);n++;if(n<=s, goto cycle, c);printc,;print">>Total P^2 =", count c;print;print;
OUTPUT: (1, 2, 3, 4, 6, 8, 12, 16, 24, 32, 48, 96)>>Total P^2 = 12 Note: You must square these numbers to get 12 perfect squares that are factors of 46,080.