|
%I #12 Jan 03 2016 17:31:03
%S 0,0,0,0,1,0,6,0,0,6,6,0,6,8,6,0,6,0,6,16,6,14,6,0,1,10,0,8,6,6,6,0,
%T 18,2,6,0,6,36,21,16,6,36,6,20,36,36,6,0,48,26,12,48,6,0,21,8,45,36,6,
%U 36,6,36,27,0,41,60,6,4,9,36,6,0,6,36,51,4,41,12,6,16
%N a(n) = 6^n mod n.
%H Harry J. Smith, <a href="/A066604/b066604.txt">Table of n, a(n) for n = 1..1000</a>
%e a(7) = 6 as 6^7 = 279936 = 7*39990 + 6.
%p seq(irem(6^n,n),n=1..80); # _Zerinvary Lajos_, Apr 20 2008
%t Table[PowerMod[6, n, n], {n, 80} ]
%o (PARI) { for (n=1, 1000, write("b066604.txt", n, " ", 6^n % n) ) } \\ _Harry J. Smith_, Mar 10 2010
%K easy,nonn
%O 1,7
%A _Amarnath Murthy_, Dec 22 2001
%E More terms from _Floor van Lamoen_ and _Robert G. Wilson v_, Dec 27 2001
|
