How do you loop a summation while taking values from list?

Question

I have a list given as:

d={{{1,1,1},{10,10,10}},{{70,70,70},{51,51,51},{97,97,97}},{{7,7,7}}}

Each number in the list represents a potential "W" value for the following fraction and each sublist is a generation (multiple triplets can be found in one generation). I also have an equation given by:

eq= w/1000

What I'd like to do is perform a looping summation where the first generation (.i.e {{{1,1,1},{10,10,10}}} is not included in any calculations, only generations from 2 on-wards are counted. I'm trying to take each value from list "d" and insert them as "w" given by "eq" and sum them so that I obtain an output which looks like this:

output= {{{},{{70/1000+ 70/1000 +70/1000 + 51/1000 + 51/1000 + 51/1000 + 97/1000 + 97/1000 + 97/1000}},{{7/1000 + 7/1000+ 7/1000}}}

Is there a quick way to do this without having to use a For loop?

Answer 1

My two cents.

In[5]:= Flatten[Map[#/1000&,Rest[d]]]
Out[5]= (* Out: {7/100,7/100,7/100,51/1000,51/1000,51/1000,97/1000,97/1000,97/1000,7/1000,7/1000,7/1000} *)

In[6]:= Total[Flatten[Map[#/1000&,Rest[d]]]]
(* Out[6]= 27/40 *)
```

Answer 2

Total[Rest[Total[d, {2}]], {2}]/1000
{327/500, 21/1000}

The innermost Total adds up all the terms at the second level. The Rest removes the first item (which you explicitly wanted discarded) and the outer Total adds up the remaining terms.