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 A363093 #24 Jul 15 2023 14:02:54 %S A363093 1,7,4,3,2,1,1,8,5,4,2,1,1,9,6,4,3,2,1,1,7,5,3,2,1,1,9,6,4,3,2,1,1,7, %T A363093 5,3,2,1,1,9,6,4,3,2,1,1,7,5,3,2,1,1,8,6,4,3,2,1,1,7,5,3,2,1,1,8,5,4, %U A363093 2,2,1,1,7,4,3,2,1,1,8,5,4,2,1,1,9,6,4,3,2,1,1,8,5,3,2,1,1,9,6,4,3 %N A363093 Leading digit of 7^n. %F A363093 a(n) = A000030(A000420(n)). %t A363093 a[n_] := IntegerDigits[7^n][[1]]; Array[a, 100, 0] (* _Amiram Eldar_, Jul 15 2023 *) %o A363093 (PARI) a(n) = digits(7^n)[1]; %Y A363093 Cf. A008952, A060956, A111395, A362871, A363249, A364185. %Y A363093 Cf. A000030, A000420, A001903, A008568. %K A363093 nonn,base,easy %O A363093 0,2 %A A363093 _Seiichi Manyama_, Jul 15 2023