OFFSET
0,3
COMMENTS
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
KEYWORD
nonn,easy,base
AUTHOR
STATUS
approved