Advertisement
Guest User

Untitled

a guest
Mar 22nd, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. In[1]:=
  2. S[n_] := Piecewise[{{0, Mod[n, 4] == 1 }, {20*30^(n/2 - 1),
  3. Mod[n, 2] == 0}, {100*500^((n - 3)/4), Mod[n, 4] == 3}}];
  4. Sum[S[k], {k, 1, 9}]
  5.  
  6. Out[1]= 608720
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement