Guest User

Untitled

a guest
Jul 11th, 2020
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. f[n_] := (n + 2)/2^(n + 2)*
  2. Sum[Binomial[n - k + 1, k], {k, 0, Floor[n/2]}]
  3. Table[
  4. Sum[
  5. f[n],
  6. {n, 0, max}
  7. ] // N,
  8. {max, 0, 200, 10}
  9. ]
  10.  
  11. Result:
  12. 0.5, 6.32422, 8.40171, 8.80889, 8.8767, 8.88711, 8.88864, 8.88885, \
  13. 8.88888, 8.88889, 8.88889, 8.88889, 8.88889, 8.88889, 8.88889, \
  14. 8.88889, 8.88889, 8.88889, 8.88889, 8.88889, 8.88889
Advertisement
Add Comment
Please, Sign In to add comment