|
%I #10 Jul 29 2015 18:19:56
%S 4,7,5,6,2,6,0,7,6,7,3,5,9,8,8,5,5,4,8,0,4,9,7,7,2,5,2,9,0,4,9,5,4,7,
%T 1,4,2,8,1,9,6,0,5,3,1,3,5,3,8,2,2,7,5,2,8,9,5,8,1,1,1,3,4,2,0,9,5,7,
%U 4,0,4,0,2,8,7,4,9,8,4,0,0,4,7,1,2,7,3,8,7,6,8,8,5,6,2,9,5,2,3,2,0,4
%N Decimal expansion of Plouffe's b-constant.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PlouffesConstants.html">Plouffe's Constant</a>
%e 0.47562607673598855480497725290495471428196...
%t digits = 102; bits = RealDigits[1/Pi, 2, 4*digits] // First; xor = BitXor[bits, Join[{0}, Most[bits]]]; B = FromDigits[{xor, -1}, 2]; RealDigits[B, 10, digits] // First (* _Jean-François Alcover_, Oct 01 2014 *)
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Jul 12 2003
|
