MathGroup Archive 2003

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

Search the Archive

Re: Repetitive sums of divisors

  • To: mathgroup at smc.vnet.net
  • Subject: [mg39064] Re: [mg39036] Repetitive sums of divisors
  • From: "Y.A.Tesiram" <yas at pcomm.hfi.unimelb.edu.au>
  • Date: Sun, 26 Jan 2003 05:24:11 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,
The following should do what I think you ask,

x = Table[i,{i,10,100,1}];

Apply[Plus, Divisors[x][[#]]] & /@ Range[Length[x]]

Yas


On Sat, 25 Jan 2003, 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: MathGL3D: BoxRatios
  • Next by Date: Re: FilledPlot Question
  • Previous by thread: Repetitive sums of divisors
  • Next by thread: Re: Repetitive sums of divisors