login
Continued fraction expansion of the constant defined in A249270.
1

%I #21 Nov 30 2020 17:31:36

%S 2,1,11,1,1,30,1,6,2,27,1,3,41,1,4,19,2,1,3,2,1,3,3,12,1,1,12,1,60,1,

%T 3,1,1,3,4,1,5,3,1,4,4,6,1,3,5,1,1,1,17,1,1,1,1,3,1,2,6,8,1,11,1,1,80,

%U 1,7,3,11,1,1,2,1,105,1,3,14,1,10,1,22,5,2

%N Continued fraction expansion of the constant defined in A249270.

%H Michael Reilly, <a href="/A339306/b339306.txt">Table of n, a(n) for n = 0..10000</a>

%t q[x_] := Apply[Times, Table[Prime[w], {w, 1, PrimePi[x]}]];

%t ContinuedFraction[Sum[1/q[n], {n, 0, 100}]]

%Y Cf. A249270, A034386.

%K nonn,cofr

%O 0,1

%A _Michael Reilly_, Nov 29 2020