for i=1:100[a,b]=factor(i);disp(int8(a(b==max(b)))(end))end