Re: Product with p!=j

*To*: mathgroup at smc.vnet.net*Subject*: [mg21705] Re: [mg21683] Product with p!=j*From*: "Tomas Garza" <tgarza at mail.internet.com.mx>*Date*: Sat, 22 Jan 2000 02:53:19 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

guillerm at gugu.usal.es wrote: > I have the following problem: > > q[n_]:= Sum[1/Product[Subscript[k, p] - Subscript[k, j], {p, 1, > n}], {j, 1, n}], with p!=j > > Any suggestions?. Perhaps this will help: In[1]:= d[p_, j_] := If[p != j, 1/(Subscript[k, p] - Subscript[k, j]), 1] In[2]:= q[n_] = Sum[Product[d[p, j], {p, 1, n}], {j, 1, n}] Tomas Garza Mexico City