Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- AbsoluteTiming[
- g[n_] := n (3 n - 1)/2;
- y[k_] := 1/6 (1 + 1/2 (-(7 - 4 Sqrt[3])^(1 + 2 k)
- - Sqrt[3] (7 - 4 Sqrt[3])^(1 + 2 k)
- - (7 + 4 Sqrt[3])^(1 + 2 k)
- + Sqrt[3] (7 + 4 Sqrt[3])^(1 + 2 k)));
- ans = Simplify@g@y[2]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement