%I
%S 0,36,216,1296,7776,0,44638,106752,511758,466176,1398612,0,4175671,
%T 4282944,2765826,4259840,20220503,0,36376760,40062976,25606125,
%U 57077760,109780662,0,144545126,283401024,0,454885376,299969829
%N a(n) = remainder when 6^n is divided by n^6.
%H Harry J. Smith, <a href="/A066610/b066610.txt">Table of n, a(n) for n = 1..1000</a>
%e a(7) = 44638 as 6^7 = 279936 = (7^6)*2 + 44638.
%t Table[ Mod[6^n, n^6], {n, 1, 30} ]
%t Table[PowerMod[6,n,n^6],{n,30}] (* _Harvey P. Dale_, Jan 21 2019 *)
%o (PARI) { for (n=1, 1000, write("b066610.txt", n, " ", 6^n % n^6) ) } \\ _Harry J. Smith_, Mar 11 2010
%K nonn
%O 1,2
%A _Amarnath Murthy_, Dec 24 2001
%E More terms from _Robert G. Wilson v_, Dec 26 2001
