|
%I #14 Aug 15 2014 07:47:53
%S 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,
%T 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,
%U 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
%N Successive decimal digits of the cubes A000578.
%C Davenport & Erdős show that 0.0182764125..., this sequence interpreted as a constant, is 10-normal. (Indeed, it shows this property for any nonconstant polynomial mapping positive integers to positive integers has this property, regardless of the base chosen.) - _Charles R Greathouse IV_, Oct 02 2013
%H Vincenzo Librandi, <a href="/A134724/b134724.txt">Table of n, a(n) for n = 0..8000</a>
%H H. Davenport and P. Erdős, <a href="http://cms.math.ca/10.4153/CJM-1952-005-3">Note on normal decimals</a>, Canadian Journal of Mathematics 4 (1952), pp. 58-63.
%t Flatten[IntegerDigits/@(Range[0,30]^3)] (* _Harvey P. Dale_, Sep 12 2012 *)
%o (PARI) for(n=0,10,my(d=digits(n^3));for(i=1,#d,print1(d[i]", "))) \\ _Charles R Greathouse IV_, Oct 02 2013
%Y Cf. A007376, A001191.
%K easy,nonn,base
%O 0,3
%A _Omar E. Pol_, Nov 12 2007
|
