|
%I #8 Aug 09 2022 16:21:27
%S 1,4,6,2,4,3,1,2,1,9,0,0,6,9,5,9,8,0,1,3,5,7,2,2,9,0,4,0,1,8,9,7,7,7,
%T 0,5,7,4,2,5,6,5,7,5,7,5,8,0,8,7,7,8,3,2,0,1,1,6,6,9,4,2,9,9,3,1,0,3,
%U 3,8,8,9,7,7,9,3,9,7,6
%N Decimal expansion of product_{p=primes} (1+1/2^p).
%C Inverse of the constant A184084.
%F Equals product_{p in A000040} (1+2^(-p)) = sum_{n>=0} A000586(n)/2^n.
%e (1+1/2^2) *(1+1/2^3) *(1+1/2^5) *(1+1/2^7) *(1+1/2^11)* .... = 1.4624312190069598013...
%t RealDigits[Times@@(1+1/2^Prime[Range[100]]),10,120][[1]] (* _Harvey P. Dale_, Sep 28 2013 *)
%o (PARI) prodeuler(p=2,1e6,1.+(1.>>p)) \\ _Charles R Greathouse IV_, Aug 09 2022
%K cons,nonn
%O 1,2
%A _R. J. Mathar_, Jan 09 2011
|
