|
%I #4 Jan 02 2019 12:50:28
%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. A085826.
%K cofr,nonn
%O 1,1
%A _Robert G. Wilson v_, Jul 06 2003
|
