|
%I #17 Jul 16 2023 10:35:11
%S 1,1,1,1,1,1,1,1,2,2,2,2,3,3,3,4,4,5,5,6,6,7,8,8,9,1,1,1,1,1,1,1,2,2,
%T 2,2,3,3,3,4,4,4,5,6,6,7,8,8,9,1,1,1,1,1,1,1,2,2,2,2,3,3,3,4,4,4,5,5,
%U 6,7,7,8,9,1,1,1,1,1,1,1,2,2,2,2,2,3,3,3,4,4,5,5,6,7,7,8,9,1,1,1,1
%N Leading digit of 11^n.
%H Seiichi Manyama, <a href="/A364185/b364185.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A000030(A001020(n)).
%t a[n_] := IntegerDigits[11^n][[1]]; Array[a, 100, 0] (* _Amiram Eldar_, Jul 15 2023 *)
%o (PARI) a(n) = digits(11^n)[1];
%Y Cf. A008952, A060956, A111395, A362871, A363093, A363249.
%Y Cf. A000030, A001020, A008571.
%K nonn,base,easy
%O 0,9
%A _Seiichi Manyama_, Jul 15 2023
|
