2 Jun
2014
2 Jun
'14
6:05 p.m.
In[49]:= Table[PowerMod[k, 497502, 497503], {k, 69}] Out[49]= {1, 495508, 1, 1, 495508, 495508, 495508, 495508, 1, 1, 495508, 1, 1, 1, 495508, 1, 495508, 495508, 1, 495508, 495508, 1, 1, 495508, 1, 495508, 1, 495508, 495508, 1, 1, 495508, 495508, 1, 1, 1, 495508, 495508, 1, 1, 495508, 1, 495508, 495508, 495508, 495508, 495508, 1, 1, 495508, 495508, 1, 1, 495508, 1, 1, 1, 1, 1, 495508, 495508, 495508, 495508, 1, 495508, 1, 1, 495508, 1} ? --rwg