Re: Sum

*To*: mathgroup at smc.vnet.net*Subject*: [mg30133] Re: [mg30129] Sum*From*: BobHanlon at aol.com*Date*: Tue, 31 Jul 2001 04:27:08 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

In a message dated 2001/7/29 9:38:17 PM, ts at tsts.com writes: >let n be an integer >=1. Let us consider the following sums: > >s(1)= P[1]Log[P[1]] >s(2)= P[2]Log[P[2]]+P[1]log[P[2]+P[1]] >s(3)= P[3]Log[P[3]]+P[2]Log[P[3]+P[2]]+P[1]Log[P[3]+P[2]+P[1]] There was no question so I am guessing that you want a definition of s[n] s[n_Integer?Positive] := Sum[P[k]*Log[Sum[P[m], {m, k, n}]], {k, 1, n}]; If not, resend your e-mail. Bob Hanlon Chantilly, VA USA