RE: question on Sum over selected integers

*To*: mathgroup at smc.vnet.net*Subject*: [mg43858] RE: [mg43833] question on Sum over selected integers*From*: "David Park" <djmp at earthlink.net>*Date*: Thu, 9 Oct 2003 01:54:31 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Ghassan, Suppose we want to sum the function f over selected integers. f[x_] := x^2 Let's do a smaller range from 1 to 10 for the example. Here the sum is developed in steps. 1) Generate the full range of integers 2) Take the complement with the missing integers 3) Map the function onto the list 4) Apply Plus to convert the List to a sum Range[10] Complement[%, {2, 6, 8}] f /@ % Plus @@ % {1, 2, 3, 4, 5, 6, 7, 8, 9, 10} {1, 3, 4, 5, 7, 9, 10} {1, 9, 16, 25, 49, 81, 100} 281 We can encapsulate all this into a single function. specialsum[f_, missing_, n_] := Plus @@ f /@ Complement[Range[n], missing] specialsum[f, {2, 6, 8}, 10] 281 David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Ghassan Shahin [mailto:ghassans at bethlehem.edu] To: mathgroup at smc.vnet.net Hi.. I have a simple question.. i want to use mathematica for sums..but i need to sum from 1 to 100 except same integer numbers, say 2,6,8..what is the code for such a task? thank you