A134688 Successive digits of the terms of A000203, the sum-of-divisors function.
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, 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, 6, 0, 5, 6, 9, 0, 4, 2, 9, 6
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
- Paul Pollack, Joseph Vandehey, Besicovitch, Bisection, and the normality of 0.(1)(4)(9)(16)(25)..., arXiv:1405.6266 [math.NT], 2014.
- Paul Pollack, Joseph Vandehey, Besicovitch, Bisection, and the Normality of 0.(1)(4)(9)(16)(25)..., The American Mathematical Monthly 122.8 (2015): 757-765.
- Paul Pollack, Joseph Vandehey, Some normal numbers generated by arithmetic functions, arXiv:1309.7386 [math.NT], 2013.
Programs
-
Maple
map(t -> op(ListTools[Reverse](convert(numtheory:-sigma(t),base,10))), [$1..100]); # Robert Israel, Nov 27 2015
-
Mathematica
Flatten@ Map[IntegerDigits, Array[DivisorSigma[1, #] &, {42}]] (* Michael De Vlieger, Nov 28 2015 *) Flatten[IntegerDigits/@DivisorSigma[1,Range[60]]] (* Harvey P. Dale, Apr 06 2018 *)