The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A002994

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A002994

Initial digit of cubes.
(history; published version)

#36 by Alois P. Heinz at Fri Aug 06 05:34:58 EDT 2021

STATUS

editing

approved

#35 by Alois P. Heinz at Fri Aug 06 05:34:56 EDT 2021

MAPLE

a:= n-> parse(""||(n^3)[1]):

seq(a(n), n=0..100); # Alois P. Heinz, Aug 06 2021

STATUS

approved

editing

#34 by Bruno Berselli at Wed Dec 13 04:16:59 EST 2017

STATUS

proposed

approved

#33 by Michel Marcus at Wed Dec 13 03:33:55 EST 2017

STATUS

editing

proposed

#32 by Michel Marcus at Wed Dec 13 03:33:50 EST 2017

NAME

Initial digits digit of cubes.

PROG

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

STATUS

approved

editing

#31 by Reinhard Zumkeller at Wed Apr 01 08:27:52 EDT 2015

STATUS

editing

approved

#30 by Reinhard Zumkeller at Wed Apr 01 03:31:41 EDT 2015

COMMENTS

a(n) = A000030(A000578(n)). - Reinhard Zumkeller, Aug 17 2008

PROG

(Haskell)

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

CROSSREFS

a(n)=A000030(A000578(n)), A144582, A002993. - Reinhard Zumkeller, Aug 17 2008

Cf. A000030, A000578, A144582, A002993.

STATUS

approved

editing

#29 by N. J. A. Sloane at Wed Oct 29 00:55:36 EDT 2014

STATUS

proposed

approved

#28 by Jon E. Schoenfield at Tue Oct 28 21:16:48 EDT 2014

STATUS

editing

proposed

#27 by Jon E. Schoenfield at Tue Oct 28 21:16:46 EDT 2014

MATHEMATICA

a[n_] := First[IntegerDigits[n^3]]; Table[a[n], {n, 0, 100}] [From (* _Vladimir Joseph Stephan Orlovsky, _, Dec 21 2008] *)

CROSSREFS

a(n)=A000030(A000578(n)), A144582, A002993. [From _- _Reinhard Zumkeller_, Aug 17 2008]

AUTHOR

N. J. A. Sloane.

STATUS

approved

editing