A339306 Continued fraction expansion of the constant defined in A249270.

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, 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, 1, 7, 3, 11, 1, 1, 2, 1, 105, 1, 3, 14, 1, 10, 1, 22, 5, 2

Offset: 0

Author

Michael Reilly, Nov 29 2020

Keywords

• nonn
• cofr

Links

• Michael Reilly, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A249270, A034386.

Programs

Mathematica

q[x_] := Apply[Times, Table[Prime[w], {w, 1, PrimePi[x]}]];
ContinuedFraction[Sum[1/q[n], {n, 0, 100}]]