A002994 Initial digit of cubes. (Formerly M4468)

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

T. D. Noe, Table of n, a(n) for n = 0..1000

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

Cf. A000030, A000578, A144582, A002993.

Sequence in context: A179954 A197518 A248300 * A097408 A228818 A195845

Adjacent sequences: A002991 A002992 A002993 * A002995 A002996 A002997

Keyword

nonn,easy,base

Author

N. J. A. Sloane

Status

approved