MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Repetitive sums of divisors

  • To: mathgroup at smc.vnet.net
  • Subject: [mg39050] Re: [mg39036] Repetitive sums of divisors
  • From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
  • Date: Sun, 26 Jan 2003 05:22:44 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Do you mean something like this:

In[38]:=
Table[Tr[Divisors[n]],{n,10,100}]

Out[38]=
{18,12,28,14,24,24,31,18,39,20,42,32,36,24,60,31,42,40,56,30,72,32,63,48 
,54,\
48,91,38,60,56,90,42,96,44,84,78,72,48,124,57,93,72,98,54,120,72,120,80, 
90,60,\
168,62,96,104,127,84,144,68,126,96,144,72,195,74,114,124,140,96,168,80,1 
86,\
121,126,84,224,108,132,120,180,90,234,112,168,128,144,120,252,98,171,156 
,217}

?
Andrzej Kozlowski
Yokohama, Japan
http://www.mimuw.edu.pl/~akoz/
http://platon.c.u-tokyo.ac.jp/andrzej/


On Saturday, January 25, 2003, at 03:25 PM, Diana wrote:

> All,
>
> I know that I can generate the divisors of any integer with the  
> "Divisors"
> command. I would like to start with "x" = 10, for example, and  
> generate the
> divisors of "x", and then determine the sum of the divisors. I would  
> then
> like to increment "x", up to 100, for example.
>
> Some help with this? Thanks,
>
> Diana
>
> Remove 13 on my e-mail address for replies, if desired.
> --
> =====================================================
> "God made the integers, all else is the work of man."
> L. Kronecker, Jahresber. DMV 2, S. 19.
>
>
>
>



  • Prev by Date: Re: How to make a Mathematica notebook available on a web site?
  • Next by Date: Re: Repetitive sums of divisors
  • Previous by thread: Re: Repetitive sums of divisors
  • Next by thread: Re: Repetitive sums of divisors