A002994 Initial digit of cubes.

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

Author

N. J. A. Sloane

Keywords

• nonn
• easy
• base

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

• T. D. Noe, Table of n, a(n) for n = 0..1000
• Eric Weisstein's World of Mathematics, Gelfand's Question

Crossrefs

Cf. A000030, A000578, A144582, A002993.

Programs

Haskell

a002994 = a000030 . a000578  -- Reinhard Zumkeller, Apr 01 2015

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 *)

PARI

a(n) = if (n, digits(n^3)[1], 0); \\ Michel Marcus, Dec 13 2017