Search: id:A000593 Results 1-1 of 1 results found. %I A000593 M3197 N1292 %S A000593 1,1,4,1,6,4,8,1,13,6,12,4,14,8,24,1,18,13,20,6,32,12,24,4,31,14,40,8, %T A000593 30,24,32,1,48,18,48,13,38,20,56,6,42,32,44,12,78,24,48,4,57,31,72,14, %U A000593 54,40,72,8,80,30,60,24,62,32,104,1,84,48,68,18,96,48,72,13,74,38,124 %N A000593 Sum of odd divisors of n. %C A000593 a(2*n) = A054785(2*n) - A000203(n). - from Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Apr 23 2008 %D A000593 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %D A000593 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence). %D A000593 Aicardi Francesca, MATRICIAL FORMULAE FOR PARTITIONS, arXiv:0806.1273. %D A000593 F. Hirzebruch et al., Manifolds and Modular Forms, Vieweg 1994 p 133. %D A000593 J. Riordan, Combinatorial Identities, Wiley, 1968, p. 187. %H A000593 T. D. Noe, Table of n, a(n) for n = 1..10000 %H A000593 M. Baake and R. V. Moody, Similarity submodules and root systems in four dimensions, Canad. J. Math. 51 (1999), 1258-1276. %H A000593 Y. Puri and T. Ward, Arithmetic and growth of periodic orbits, J. Integer Seqs., Vol. 4 (2001), #01.2.1. %H A000593 N. J. A. Sloane, Transforms %H A000593 Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics. %H A000593 Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics. %H A000593 Index entries for "core" sequences %F A000593 Inverse Moebius Transform of [0, 1, 0, 3, 0, 5, ...] %F A000593 Dirichlet g.f.: zeta(s)*zeta(s-1)*(1-2^(1-s)). %F A000593 a(2n)=A000203(2n)-2*A000203(n), a(2n+1)=A000203(2n+1) - Henry Bottomley (se16(AT)btinternet.com), May 16 2000 %F A000593 Multiplicative with a(p^e) = 1 if p = 2, (p^(e+1)-1)/(p-1) if p > 2. - David W. Wilson (davidwwilson(AT)comcast.net), Aug 01, 2001. %F A000593 a(n) = Sum_{d divides n} (-1)^(d+1)*n/d. - Vladeta Jovovic (vladeta(AT)eunet.rs), Sep 06 2002 %F A000593 Sum(k=1, n, a(k)) is asymptotic to c*n^2 where c=Pi^2/24. - Benoit Cloitre, Dec 29, 2002 %F A000593 G.f.: Sum_{n>0} nx^n/(1+x^n). - Vladeta Jovovic (vladeta(AT)eunet.rs), Oct 11 2002 %F A000593 G.f.: (theta_3(q)^4 + theta_2(q)^4 -1)/24. %F A000593 G.f.: Sum_{k>0} -(-x)^k/(1-x^k)^2. - Michael Somos Oct 29 2005 %F A000593 a(n)=A050449(n)+A050452(n); a(A000079(n))=1; a(A005408(n))=A000203(A005408(n)). - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Apr 18 2006 %F A000593 Dirichlet g.f.: zeta(s)*zeta(s-1)*(1-2^(1-s)). - Ralf Stephan, Jun 17 2007 %p A000593 A000593 := proc(n) local d,s; s := 0; for d from 1 by 2 to n do if n mod d = 0 then s := s+d; fi; od; RETURN(s); end; %t A000593 Table[a := Select[Divisors[n], OddQ[ # ]&];Sum[a[[i]],{i,1,Length[a]}], {n, 1, 60}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Apr 01 2006 %o A000593 (PARI) a(n)=if(n<1,0,sumdiv(n,d,(-1)^(d+1)*n/d)) %o A000593 (PARI from Joerg Arndt (arndt(AT)jjj.de), May 03, 2008) %o A000593 N=17; default(seriesprecision,N); x=z+O(z^(N+1)) %o A000593 c=sum(j=1,N,j*x^j); \\ log case %o A000593 s=-log(prod(j=1,N,(1+x^j)^(1))); \\ A000593 Sum of odd divisors of n. %o A000593 s=serconvol(s,c) %o A000593 v=Vec(s) %Y A000593 Cf. A000005, A000203, A001227, A050999-A051002, A078471. %Y A000593 Sequence in context: A127555 A117001 A098986 this_sequence A115607 A076717 A120422 %Y A000593 Adjacent sequences: A000590 A000591 A000592 this_sequence A000594 A000595 A000596 %K A000593 nonn,core,easy,nice,mult %O A000593 1,3 %A A000593 N. J. A. Sloane (njas(AT)research.att.com). Search completed in 0.002 seconds