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
Links
- Michael Reilly, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
q[x_] := Apply[Times, Table[Prime[w], {w, 1, PrimePi[x]}]]; ContinuedFraction[Sum[1/q[n], {n, 0, 100}]]
Comments