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