%I #10 Apr 05 2019 17:00:56
%S 0,144,1728,20736,248832,2985984,35831808,429981696,5159780352,
%T 61917364224,743008370688,0,13800864889148,36652392292352,
%U 96953703492618,236674172846080,568249606736865,15868743229440
%N a(n) = 12^n mod n^12.
%H Harry J. Smith, <a href="/A066445/b066445.txt">Table of n, a(n) for n = 1..500</a>
%t Table[ Mod[12^n, n^12], {n, 1, 20} ]
%t Table[PowerMod[12,n,n^12],{n,20}] (* _Harvey P. Dale_, Apr 05 2019 *)
%o (PARI) { for (n=1, 500, write("b066445.txt", n, " ", 12^n % n^12) ) } \\ _Harry J. Smith_, Feb 14 2010
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Dec 27 2001