Date: Dec 6, 2012 4:57 AM Author: Q in mathematica Subject: Q in mathematica ?? Write Mathematica Blocks that can solve the problem.

Write a code that verifies Fermat' s Little Theorem which says that : If [Phi](n) is the Euler Phi of n, i.e. the number of positive integers less than or equal to n which are relatively prime to n, then a^[Phi](n)[Congruent]1mod n for all a relatively prime to n.