Table[(b^(561)-b) (mod 561),{b,2,100}]