A134724 Successive decimal digits of the cubes A000578.
0, 1, 8, 2, 7, 6, 4, 1, 2, 5, 2, 1, 6, 3, 4, 3, 5, 1, 2, 7, 2, 9, 1, 0, 0, 0, 1, 3, 3, 1, 1, 7, 2, 8, 2, 1, 9, 7, 2, 7, 4, 4, 3, 3, 7, 5, 4, 0, 9, 6, 4, 9, 1, 3, 5, 8, 3, 2, 6, 8, 5, 9, 8, 0, 0, 0, 9, 2, 6, 1, 1, 0, 6, 4, 8, 1, 2, 1, 6, 7, 1, 3, 8, 2, 4, 1, 5, 6, 2, 5, 1, 7, 5, 7, 6, 1, 9, 6, 8, 3
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..8000
- H. Davenport and P. Erdős, Note on normal decimals, Canadian Journal of Mathematics 4 (1952), pp. 58-63.
Programs
-
Mathematica
Flatten[IntegerDigits/@(Range[0,30]^3)] (* Harvey P. Dale, Sep 12 2012 *)
-
PARI
for(n=0,10,my(d=digits(n^3));for(i=1,#d,print1(d[i]", "))) \\ Charles R Greathouse IV, Oct 02 2013
Comments