Apéry's constant: Difference between revisions
J (enough said...)
m (→{{header|Phix}}: (or replace)) |
(J (enough said...)) |
||
Line 41:
;* [[oeis:A002117|OEIS:A002117 - Decimal expansion of zeta(3)]]
=={{header|J}}==
<syntaxhighlight lang=J>app3=: {{ +/_3x^~1+i.y }}
app3m=: {{ _5r2 * +/ {{ (_1^y)*(2^~!y)%(!2*y)*y^3}} 1x+i.y }}
app3sm=: {{ 1r24* +/ {{
(_1^y)*(3^~*/!y,0 1+/2*y)*(12463 104000 336367 531578 412708 126392 p. y)%(!2 3 p.y)*(!3 4 p.y)^3
}} x:i.y
}}
0j100 ": app3 1000
1.2020564036593442854830714115115999903483212709031775135036540966118572571921400836130084123260473112
0j100 ": app3m 158
1.2020569031595942853997381615114499907649862923404988817922715553418382057863130901864558736093352581
0j100 ": app3sm 20
1.2020569031595942853997381615114499907649862923404988817922715553418382057863130901864558736093352581
</syntaxhighlight>
=={{header|Phix}}==
| |||