|
%I #30 Apr 06 2018 22:33:26
%S 1,3,4,7,6,1,2,8,1,5,1,3,1,8,1,2,2,8,1,4,2,4,2,4,3,1,1,8,3,9,2,0,4,2,
%T 3,2,3,6,2,4,6,0,3,1,4,2,4,0,5,6,3,0,7,2,3,2,6,3,4,8,5,4,4,8,9,1,3,8,
%U 6,0,5,6,9,0,4,2,9,6
%N Successive digits of the terms of A000203, the sum-of-divisors function.
%H Robert Israel, <a href="/A134688/b134688.txt">Table of n, a(n) for n = 1..10000</a>
%H Paul Pollack, Joseph Vandehey, <a href="http://arxiv.org/abs/1405.6266">Besicovitch, Bisection, and the normality of 0.(1)(4)(9)(16)(25)...</a>, arXiv:1405.6266 [math.NT], 2014.
%H Paul Pollack, Joseph Vandehey, <a href="http://www.jstor.org/stable/10.4169/amer.math.monthly.122.8.757">Besicovitch, Bisection, and the Normality of 0.(1)(4)(9)(16)(25)...</a>, The American Mathematical Monthly 122.8 (2015): 757-765.
%H Paul Pollack, Joseph Vandehey, <a href="http://arxiv.org/abs/1309.7386">Some normal numbers generated by arithmetic functions</a>, arXiv:1309.7386 [math.NT], 2013.
%p map(t -> op(ListTools[Reverse](convert(numtheory:-sigma(t),base,10))), [$1..100]); # _Robert Israel_, Nov 27 2015
%t Flatten@ Map[IntegerDigits, Array[DivisorSigma[1, #] &, {42}]] (* _Michael De Vlieger_, Nov 28 2015 *)
%t Flatten[IntegerDigits/@DivisorSigma[1,Range[60]]] (* _Harvey P. Dale_, Apr 06 2018 *)
%Y Cf. A000203, A077650.
%K base,easy,nonn
%O 1,2
%A _Omar E. Pol_, Nov 06 2007
|
