This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A113738 #5 Apr 19 2013 22:25:58
%S A113738 1,2,1,2,1,2,12,22,1,1,4,4,1,2,1,3,2,2,11,1,202,1,5,1,2,1,5,1,2,1,1,1,
%T A113738 1,3,2,1,2,2,5,2,1,1,2,1,3,1,1,15,2,1,12,1,2,2,1,1,1,2,1,3,1,2,10,1,6,
%U A113738 5,1,2,1,2,6,1,1,2,8,2,19,3,1,1,1,2,1,1,1,5,1,2,2,1,3,1,6,12,2,4,1,5,1,2,4
%N A113738 Continued fraction expansion of the constant given by Sum_{n>=0} A083952(n)/2^(n+1).
%t A113738 a[0] = 1; a[l_] := a[l] = Block[{k = 1, s = Sum[ a[i]*x^i, {i, 0, l - 1}]}, While[ IntegerQ[ Last[ CoefficientList[ Series[(s + k*x^l)^(1/2), {x, 0, l}], x]]] != True, k++ ]; k]; t = Table[a[n], {n, 0, 370}]; ContinuedFraction[ FromDigits[{t - 1, 0}, 2]]
%Y A113738 Cf. A083952, A113737.
%K A113738 base,nonn
%O A113738 0,2
%A A113738 _Robert G. Wilson v_, Nov 08 2005
%E A113738 Entry revised by _Paul D. Hanna_, Apr 19 2013