Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. fe[n_, x_] := (n + x)^(n + x)/((E n)^(2 x) (n - x)^(n - x))
  2.  
  3. p[nn_] :=
  4. Product[(fe[n, 1/2] fe[n, 7/12] fe[n, 1/20] fe[n, 13/20])/(
  5. fe[n, 1/4] fe[n, 1/12] fe[n, 3/20] fe[n, 11/20]), {n, 1, nn}]
  6.  
  7. pr = Exp[(47 Catalan)/(30 [Pi]) + 3/4] Sqrt[
  8. 33/(91 [Pi]) Sqrt[2/[Pi] 11^(1/5)/7^(1/3) (3^3/13^3)^(1/5)]];
  9.  
  10. N[pr] = 0.780459...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement