%I A071422
%S A071422 1,4,8,15,21,24,32,38,42,51,54,64,69,75,81,85,94,106,108,114,119,128,
%T A071422 134,140,144,150,154,165,168,177,182,191,203,212,224,234,245,251,262,
%U A071422 271,277,292,300,312,327,336,348,355,367,379,388,405,414,417,426,429
%N A071422 a(n) = a(n-1) + sum of decimal digits of sigma(n), the sum of divisors 
               of n.
%t A071422 s=0; Do[s=s+Apply[Plus, IntegerDigits[DivisorSigma[1, n]]]; Print[s], 
               {n, 1, 128}]
%Y A071422 Cf. A037123, A000788, A051351.
%Y A071422 Sequence in context: A130826 A104101 A136403 this_sequence A113902 A024916 
               A102216
%Y A071422 Adjacent sequences: A071419 A071420 A071421 this_sequence A071423 A071424 
               A071425
%K A071422 base,easy,nonn
%O A071422 1,2
%A A071422 Labos E. (labos(AT)ana.sote.hu), May 27 2002