|
%I #16 Feb 12 2017 21:15:29
%S 6,9,0,1,5,2,8,9,5,6,5,9,0,8,6,5,8,3,2,0,5,7,0,5,2,4,5,3,3,4,1,0,0,8,
%T 7,6,8,1,4,3,7,7,0,7,9,0,7,0,3,9,6,3,0,9,5,3,0,7,6,8,1,3,0,0,8,8,2,2,
%U 0,0,3,3,0,4,4,3,7,8,1,6,6,7,0,8,4,4,1,1,5,3,6,2,0,8,4,5,0,5,0,7,9,9,4,3,2
%N The n-th digit from the left (most significant digit) of n^n.
%H Robert Israel, <a href="/A078196/b078196.txt">Table of n, a(n) for n = 8..10000</a>
%e a(15) = 9, 15^15 = 437893890380859375 and starting from 4 (the MSD) 9 is the 15th digit.
%p f:= n -> convert(n^n,base,10)[-n]:
%p map(f, [$8..200]); # _Robert Israel_, Feb 11 2017
%t Flatten[Table[Take[IntegerDigits[n^n],{n}],{n,8,150}]] (* _Harvey P. Dale_, May 01 2011 *)
%Y Cf. A023957.
%K base,nonn
%O 8,1
%A _Amarnath Murthy_, Nov 21 2002
%E More terms from _Sascha Kurz_, Jan 07 2003
|
