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

Re: Sum

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

"Allan Hayes" <hay at haystack.demon.co.uk> ha scritto nel messaggio
news:9k879r$3tk$1 at smc.vnet.net...
> 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]]]
>



SUPERB!

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