A099875 Continued fraction expansion of nested cube root expression in A099874.
1, 2, 1, 2, 1, 4, 4, 4, 1, 3, 1, 4, 1, 3, 1, 2, 10, 1, 3, 37, 4, 1, 37, 1, 19, 1, 1, 1, 1, 4, 2, 1, 2, 9, 7, 1, 2, 1, 1, 4, 1, 10, 1, 1, 62, 1, 1, 3, 2, 2, 3, 2, 3, 2, 8, 1, 8, 2, 2, 2, 1, 1, 1, 3, 1, 2, 1, 15, 7, 1, 2, 4, 6, 1, 1, 1, 2, 3, 263, 1, 2, 1, 2, 5, 10, 1, 1, 1, 1, 2, 1, 5, 1, 2, 1, 13, 1, 1, 2, 1
Offset: 0
Crossrefs
Cf. A099874 (decimal expansion).
Programs
-
Mathematica
k = 65; r = 66; While[k > 0, r = (k + r)^(1/3); k-- ]; ContinuedFraction[r, 100] (* Robert G. Wilson v, Nov 04 2004 *)
Extensions
More terms from Robert G. Wilson v, Nov 04 2004
Offset changed by Andrew Howroyd, Aug 04 2024
Comments