login
a(n) = 12^n mod n^12.
1

%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