A107951 Continued fraction expansion of Boling's constant.
1, 1, 4, 6, 1, 1, 3, 1, 2, 5, 23, 3, 1, 1, 2, 1, 2, 1, 6, 2, 1, 5, 1, 12, 8, 2, 1, 1, 1, 4, 6, 1, 12, 6, 1, 1, 3, 1, 2, 2, 3, 1, 1, 1, 1, 25, 3, 2, 1, 1, 1, 3, 2, 1, 4, 3, 7, 36, 1, 3, 19, 1, 3, 11, 2, 7, 2, 4, 1, 6, 5, 20, 3, 1, 1, 4, 1, 84, 10, 4, 2, 1, 3, 3, 1, 1, 2, 1, 2, 1, 1, 1, 499, 2, 12, 1, 4, 857
Offset: 0
Programs
-
Mathematica
ContinuedFraction[ Sum[i(i + 1)/2/Product[i!/j!, {j, 0, i - 1}], {i, 20}]]
Extensions
Offset changed by Andrew Howroyd, Aug 03 2024