- 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: <firstname.lastname@example.org> <email@example.com> <firstname.lastname@example.org>
- 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!