Apéry's constant: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(Add Mathematica/Wolfram Language implementation) |
||
Line 135: | Line 135: | ||
1.2020569031595942853997381615114499907649862923404988817922715553418382057863130901864558736093352581 |
1.2020569031595942853997381615114499907649862923404988817922715553418382057863130901864558736093352581 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<syntaxhighlight lang="Mathematica"> |
|||
ClearAll["Global`*"]; |
|||
TruancateTo100DecimalDigits = N[#, 100 + 1] &; |
|||
MyShowApéryConstant[expr_, caption_String] := Print[caption <> \ |
|||
ToString@Activate@TruancateTo100DecimalDigits[expr]]; |
|||
MyShowApéryConstant[ |
|||
Zeta[3], "Apéry's constant via Mathematica's Zeta:"] |
|||
MyShowApéryConstant[ |
|||
Sum[1/(k^3), {k, 1, 1000}], "Apéry's constant via reciprocal cubes:"] |
|||
MyShowApéryConstant[(5/2* |
|||
Sum[(-1)^(k - 1)*(k!)^2/((2 k)!*k^3), {k, 1, |
|||
158}]), "Apéry's constant via Markov's summation:"] |
|||
MyShowApéryConstant[ |
|||
1/24*Sum[(-1)^ |
|||
k*((2 k + 1)!)^3*((2 k)!)^3*(k!)^3*(126392 k^5 + 412708 k^4 + |
|||
531578 k^3 + 336367 k^2 + 104000 k + |
|||
12463)/(((3 k + 2)!)*((4 k + 3)!)^3), {k, 0, |
|||
19}], "Apéry's constant via Wedeniwski's summation:"] |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
Apéry's constant via Mathematica's Zeta: |
|||
1.2020569031595942853997381615114499907649862923404988817922715553418382057863130901864558736093352581 |
|||
Apéry's constant via reciprocal cubes: |
|||
1.2020564036593442854830714115115999903483212709031775135036540966118572571921400836130084123260473112 |
|||
Apéry's constant via Markov's summation: |
|||
1.2020569031595942853997381615114499907649862923404988817922715553418382057863130901864558736093352581 |
|||
Apéry's constant via Wedeniwski's summation: |
|||
1.2020569031595942853997381615114499907649862923404988817922715553418382057863130901864558736093352581 |
|||
</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |