login
A002994
Initial digit of cubes.
(Formerly M4468)
12
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, 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, 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
OFFSET
0,3
COMMENTS
a(n) = A000030(A000578(n)). - Reinhard Zumkeller, Aug 17 2008
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Eric Weisstein's World of Mathematics, Gelfand's Question
MAPLE
a:= n-> parse(""||(n^3)[1]):
seq(a(n), n=0..100); # Alois P. Heinz, Aug 06 2021
MATHEMATICA
a[n_] := First[IntegerDigits[n^3]]; Table[a[n], {n, 0, 100}] (* Vladimir Joseph Stephan Orlovsky, Dec 21 2008 *)
PROG
(Haskell)
a002994 = a000030 . a000578 -- Reinhard Zumkeller, Apr 01 2015
(PARI) a(n) = if (n, digits(n^3)[1], 0); \\ Michel Marcus, Dec 13 2017
CROSSREFS
KEYWORD
nonn,easy,base
STATUS
approved