%I #8 Jun 15 2018 21:27:47

%S 0,0,0,0,2,0,5,0,0,4,1,0,12,4,3,0,12,0,12,16,6,12,12,0,7,14,0,16,12,

%T 24,12,0,12,8,3,0,12,30,12,16,12,36,12,12,27,6,12,0,19,24,45,40,12,0,

%U 23,32,18,28,12,36,12,20,27,0,12,12,12,64,3,44,12,0,12,70,18,64,45,66,12

%N a(n) = 12^n mod n.

%H Harry J. Smith, <a href="/A066442/b066442.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[PowerMod[12, n, n], {n, 80} ]

%o (PARI) { for (n=1, 1000, write("b066442.txt", n, " ", 12^n % n) ) } \\ _Harry J. Smith_, Feb 14 2010

%K nonn

%O 1,5

%A _Robert G. Wilson v_, Dec 27 2001