%I A078471
%S A078471 1,2,6,7,13,17,25,26,39,45,57,61,75,83,107,108,126,139,159,165,197,209,
%T A078471 233,23,7,268,282,322,330,360,384,416,417,465,483,531,544,582,602,658,
%U A078471 664,706,738,78,2,794,872,896,944,948,1005,1036,1108,1122,1176,1216
%N A078471 Partial sums of A000593.
%H A078471 M. Baake and R. V. Moody, <a href="http://arXiv.org/abs/math.MG/9904028">
               Similarity submodules and root systems in four dimensions</a>, Canad. 
               J. Math. 51 (1999), 1258-1276.
%F A078471 a(n)=sum(k=1, n, A000593(k)); a(n) is asymptotic to c*n^2 where c=Pi^2/
               24
%o A078471 (PARI) a(n)=sum(v=1,n,sumdiv(v,d,(-1)^(d+1)*v/d))
%Y A078471 Sequence in context: A079906 A072147 A124319 this_sequence A127406 A092310 
               A087376
%Y A078471 Adjacent sequences: A078468 A078469 A078470 this_sequence A078472 A078473 
               A078474
%K A078471 nonn
%O A078471 1,2
%A A078471 Benoit Cloitre (benoit7848c(AT)orange.fr), Dec 31 2002