|
%I #12 Oct 27 2023 22:00:46
%S 1,1,4,2,2,3,4,8,1,3,1,2,8,3,1,4,1,8,3,1,1,5,3,2,1,8,6,4,3,2,2,1,1,1,
%T 1,1,1,1,1,1,1,1,1,1,2,2,3,3,5,6,8,1,1,2,3,5,7,1,1,3,4,8,1,2,3,6,1,2,
%U 4,7,1,2,5,1,2,4,8,1,3,8,1,3,8,1,4,1,2,5,1,3,7,1,4,1,2,7,1,5,1,3,1,2,7,2,5,1
%N Leading digit of n^n.
%C The sequence equals 2 in the range n = 3628..3730. - _Rémy Sigrist_, Dec 13 2018
%H Rémy Sigrist, <a href="/A061505/b061505.txt">Table of n, a(n) for n = 0..10000</a>
%F Using the formula in A000030: a(n) = [n^n / 10^([log_10(n^n)])] = [n^n / 10^([n*log_10(n)])].
%e a(7) = 8, as 7^7 = 823543.
%t a = {}; Do[ a = Append[ a, IntegerDigits[ n^n ] [ [ 1 ] ] ], {n, 1, 75 } ]; a
%o (PARI) a(n) = digits(n^n)[1] \\ _Rémy Sigrist_, Dec 13 2018
%Y Cf. A056849.
%K base,nonn,easy
%O 0,3
%A _Amarnath Murthy_, May 06 2001
%E More terms from _Robert G. Wilson v_, May 10 2001
%E Further terms from _Asher Auel_, May 20 2001
%E a(0) = 1 prepended by _Rémy Sigrist_, Dec 13 2018
|
