Mathematica 9 is now available
Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Sum

  • To: mathgroup at
  • Subject: [mg30219] Re: Sum
  • From: "bassman" <baccol_ at>
  • Date: Thu, 2 Aug 2001 03:16:13 -0400 (EDT)
  • Organization: [Infostrada]
  • References: <9k2doa$2fn$> <9k5r2m$hbl$> <9k879r$3tk$>
  • Sender: owner-wri-mathgroup at

"Allan Hayes" <hay at> ha scritto nel messaggio
news:9k879r$3tk$1 at
> Another, faster, way (I'm rather fond od the dot product for this sort of
> thing):
> S2[n_] :=
>   (#.Log /@ FoldList[Plus, First[#], Rest[#]]) &[Reverse[Array[Prime, n]]]


That's what I was looking for!
Thank you so much!

  • Prev by Date: Re: Applying List of Functions To List Of Arguments
  • Next by Date: RE: Applying List of Functions To List Of Arguments
  • Previous by thread: Re: Sum
  • Next by thread: Re: Formatting numbers on Plot axis