login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 18 06:34 EST 2019. Contains 319269 sequences. (Running on oeis4.)