|
%I #25 Nov 18 2017 08:46:23
%S 1,3,4,7,6,3,8,6,4,9,3,10,5,6,6,4,9,12,2,6,5,9,6,6,4,6,4,11,3,9,5,9,
%T 12,9,12,10,11,6,11,9,6,15,8,12,15,9,12,7,12,12,9,17,9,3,9,3,8,9,6,15,
%U 8,15,5,10,12,9,14,9,15,9,9,15,11,6,7,5,15,15,8,15,4,9,12,8,9,6,3,9,9,9
%N Sum of decimal digits of sum of divisors of n.
%H Antti Karttunen, <a href="/A067342/b067342.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%F a(n) = A007953(A000203(n)). - _Michel Marcus_, Dec 26 2013
%e n=100, sigma(100)=217, SumDigit(217)=10, a(100)=10.
%t Array[Total[IntegerDigits[DivisorSigma[1,#]]]&,90] (* _Harvey P. Dale_, Jan 02 2012 *)
%o (PARI) vector(80, n, sumdigits(sigma(n))) \\ _Michel Marcus_, Apr 08 2015
%Y Cf. A000203, A007953, A077650, A175548.
%K nonn,base
%O 1,2
%A _Labos Elemer_, Jan 16 2002
%E Offset corrected to 1 by _Michel Marcus_, Dec 26 2013
|
