This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A308043 #10 May 14 2019 11:04:26
%S A308043 8,1,9,1,9,0,9,6,4,1,4,8,9,9,1,9,0,8,1,8,0,3,6,5,6,6,0,3,8,1,3,7,3,5,
%T A308043 8,2,7,2,2,2,6,8,8,5,2,4,7,9,7,1,8,4,9,8,5,8,2,1,4,6,6,0,3,7,6,2,1,1,
%U A308043 7,4,3,5,0,4,7,2,2,0,4,0,2,2,0,8,7,0,7
%N A308043 Decimal expansion of the asymptotic mean of 2^omega(k)/d(k), where omega(k) is the number of distinct prime divisors of k (A001221) and d(k) is its number of divisors (A000005).
%C A308043 Also the asymptotic mean of the ratio between the number of unitary divisors and the number of divisors of the integers.
%F A308043 Equals Product_{p prime} (1-1/p)*(2*p*log(p/(p-1))-1).
%e A308043 0.81919096414899190818036566038137358272226885247971...
%t A308043 $MaxExtraPrecision = 1000; m = 1000; f[p_] := (1 - 1/p)*(2*p*Log[p/(p - 1)] - 1); c = Rest[CoefficientList[Series[Log[f[1/x]], {x, 0, m}], x]]; RealDigits[f[2] * Exp[ NSum[ Indexed[c, n]*(PrimeZetaP[n] - 1/2^n), {n, 2, m}, NSumTerms -> m, WorkingPrecision -> m]], 10, 100][[1]]
%Y A308043 Cf. A000005, A001221, A034444, A307870 (mean of the inverse ratio).
%K A308043 nonn,cons
%O A308043 0,1
%A A308043 _Amiram Eldar_, May 10 2019