Advertisement
Guest User

Untitled

a guest
Sep 2nd, 2014
185
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. seq[n_] := FullSimplify[LerchPhi[1/2, 2, -n] - 2^(-2-n) (π^2 - 6 Log[2]^2)/3];
  2. Array[seq, 10]
  3. (* {1, 3/4, 35/72, 11/36, 347/1800, 149/1200, 9701/117600, 209/3675, 8093/198450, 6031/198450} *)
  4.  
  5. DifferenceRootReduce[LerchPhi[1/2, 2, -n] - 2^(-2-n) (π^2 - 6 Log[2]^2)/3, n]
  6. (* LerchPhi[1/2, 2, -n] - 2^(-2-n) (π^2 - 6 Log[2]^2)/3 *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement