|
Search: id:A086237
|
|
|
| A086237 |
|
Decimal expansion of Porter's Constant. |
|
+0
2
|
|
| 1, 4, 6, 7, 0, 7, 8, 0, 7, 9, 4, 3, 3, 9, 7, 5, 4, 7, 2, 8, 9, 7, 7, 9, 8, 4, 8, 4, 7, 0, 7, 2, 2, 9, 9, 5, 3, 4, 4, 9, 9, 0, 3, 3, 2, 2, 4, 1, 4, 8, 8, 7, 7, 7, 7, 3, 9, 9, 6, 8, 5, 8, 1, 7, 6, 1, 6, 6, 0, 6, 7, 4, 4, 3, 2, 9, 0, 4, 4, 8, 0, 8, 4, 3, 0, 3, 6, 9, 3, 2, 7, 5, 1, 1, 1, 7, 4, 0, 1, 5, 2, 1, 2, 6, 6
(list; cons; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
6*ln2/Pi^2 (3*ln2 + 4 Gamma - 24/Pi^2*Zeta'(2) - 2)
|
|
REFERENCES
|
Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, p. 157
Julian Havil, Gamma, Exploring Euler's Constant, Princeton University Press, Princeton and Oxford, 2003, page 113.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Porter's Constant
|
|
EXAMPLE
|
1.4670...
|
|
MATHEMATICA
|
(* first do *) Needs["NumericalMath`NLimit`"], (* then *) RealDigits[ N[ Log[64] / Pi^2(Log[8] + 4EulerGamma - 24/Pi^2 ND[ Zeta[z], z, 2, WorkingPrecision -> 200, Scale -> 10^-20, Terms -> 20] - 2) - 1/2, 111]][[1]] (from EWW May 20 2004)
|
|
CROSSREFS
|
Sequence in context: A082237 A042976 A090142 this_sequence A136323 A135798 A021218
Adjacent sequences: A086234 A086235 A086236 this_sequence A086238 A086239 A086240
|
|
KEYWORD
|
nonn,cons
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Jul 12, 2003
|
|
|
Search completed in 0.002 seconds
|
