login
Increasing partial quotients of number defined in A085825 and A085826.
0

%I #7 Aug 05 2024 14:58:26

%S 2,6,17,61,126,977090,1474739

%N Increasing partial quotients of number defined in A085825 and A085826.

%C 977090 occurs at PQ_142, whereas 1474739 occurs at PQ_514488 out of the first 1155900 PQs.

%H Mark A. Herkommer, <a href="http://www.herkommer.org/misc/herk_num.htm">The Incredible Herkommer Number</a>.

%H Mark A. Herkommer, <a href="http://www.herkommer.org/misc/contfrac.htm">Continued Fractions</a>.

%t 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}]

%Y Cf. A085825, A085826.

%K nonn,more

%O 1,1

%A _Robert G. Wilson v_, Jul 06 2003