A085827 Increasing partial quotients of number defined in A085825 and A085826.
2, 6, 17, 61, 126, 977090, 1474739
Offset: 1
Links
- Mark A. Herkommer, The Incredible Herkommer Number.
- Mark A. Herkommer, Continued Fractions.
Programs
-
Mathematica
s = 0; Do[s = Prime[2n]/(Prime[2n + 1] + s), {n, 10^5, 1, -1}]; h = ContinuedFraction[s]; a = 0; k = 1; Do[ While[ h[[k]] ? a, k++ ]; Print[ h[[k]]], {n, 1, 30}]
Comments