This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A362871 #34 Jul 15 2023 14:02:38 %S A362871 1,6,3,2,1,7,4,2,1,1,6,3,2,1,7,4,2,1,1,6,3,2,1,7,4,2,1,1,6,3,2,1,7,4, %T A362871 2,1,1,6,3,2,1,8,4,2,1,1,6,3,2,1,8,4,2,1,1,6,3,2,1,8,4,2,1,1,6,3,2,1, %U A362871 8,4,2,1,1,6,3,2,1,8,4,2,1,1,6,3,2,1,8,5,3,1,1,6,3,2,1,8,5,3,1,1,6 %N A362871 Leading digit of 6^n. %F A362871 a(n) = A000030(A000400(n)). %t A362871 a[n_] := IntegerDigits[6^n][[1]]; Array[a, 100, 0] (* _Amiram Eldar_, Jul 15 2023 *) %o A362871 (PARI) a(n) = digits(6^n)[1]; %Y A362871 Cf. A008952, A060956, A111395, A363093, A363249, A364185. %Y A362871 Cf. A000030, A000400, A008567. %K A362871 nonn,base,easy %O A362871 0,2 %A A362871 _Seiichi Manyama_, Jul 15 2023