Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- n=slider[1,500]
- list1=Sequence[{(4j - 3, ln(2j)), (4j - 2, -ln(2j + 1)), (4j - 1, ln(2 (j + 1))), (4j, -ln(2j + 1))}, j, 1, n]
- list2=Join[Sequence[Element[list1, i], i, 1, n]]
- list3=Sequence[(i, Sum[Sequence[y(Element[list2, j]), j, 1, i]]), i, 1, n]
Add Comment
Please, Sign In to add comment