|
%I #7 Nov 21 2013 12:48:13
%S 1,0,0,0,0,0,0,0,0,0,0,0,1,2,8,4,3,0,1,0,3,2,3,9,4,7,5,4,3,7,4,6,5,4,
%T 10,4,9,1,7,5,4,8,4,11,2,4,0,8,4,10,7,6,5,8,6,9,3,1,8,7,1,6,0,8,8,2,1,
%U 8,1,5,10,0,0,6,5,10,11,11,7,7,1,10,2,3,1,0,4,10,8,5,7,6,11,2,6,1,4,0
%N Value of n-th digit in duodecimal representation of n^n.
%C a(n)=d(n) with n^n = Sum(d(k)*12^k: 0<=d(k)<12, k>=0).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Duodecimal.html">Duodecimal</a>
%F a(n) = floor(n^n / 12^n) mod 12.
%e n=16, 16^16=18446744073709551616 -> [839365134A210240714], a(16)=3.
%e a(0)=1, a(k)=0 for 0<k<12 and a(12)=1.
%t Join[{1},Table[Mod[Floor[n^n/12^n],12],{n,100}]] (* _Harvey P. Dale_, Apr 17 2012 *)
%Y Cf. A000312, A088150, A088151, A088152, A088153, A088155, A088156, A088157.
%K nonn,base
%O 0,14
%A _Reinhard Zumkeller_, Sep 20 2003
|
