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 A002994 M4468 #37 Feb 16 2025 08:32:27
%S A002994 0,1,8,2,6,1,2,3,5,7,1,1,1,2,2,3,4,4,5,6,8,9,1,1,1,1,1,1,2,2,2,2,3,3,
%T A002994 3,4,4,5,5,5,6,6,7,7,8,9,9,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,
%U A002994 3,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,9,9,1
%N A002994 Initial digit of cubes.
%C A002994 a(n) = A000030(A000578(n)). - _Reinhard Zumkeller_, Aug 17 2008
%D A002994 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A002994 T. D. Noe, <a href="/A002994/b002994.txt">Table of n, a(n) for n = 0..1000</a>
%H A002994 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GelfandsQuestion.html">Gelfand's Question</a>
%p A002994 a:= n-> parse(""||(n^3)[1]):
%p A002994 seq(a(n), n=0..100); # _Alois P. Heinz_, Aug 06 2021
%t A002994 a[n_] := First[IntegerDigits[n^3]]; Table[a[n], {n, 0, 100}] (* _Vladimir Joseph Stephan Orlovsky_, Dec 21 2008 *)
%o A002994 (Haskell)
%o A002994 a002994 = a000030 . a000578 -- _Reinhard Zumkeller_, Apr 01 2015
%o A002994 (PARI) a(n) = if (n, digits(n^3)[1], 0); \\ _Michel Marcus_, Dec 13 2017
%Y A002994 Cf. A000030, A000578, A144582, A002993.
%K A002994 nonn,easy,base
%O A002994 0,3
%A A002994 _N. J. A. Sloane_