A113738 Continued fraction expansion of the constant given by Sum_{n>=0} A083952(n)/2^(n+1).

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, 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, 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

Offset

0,2

Links

Table of n, a(n) for n=0..100.

Mathematica

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]]

Crossrefs

Cf. A083952, A113737.

Sequence in context: A193163 A106157 A181816 * A287854 A355341 A245714

Adjacent sequences: A113735 A113736 A113737 * A113739 A113740 A113741

Keyword

base,nonn

Author

Robert G. Wilson v, Nov 08 2005

Extensions

Entry revised by Paul D. Hanna, Apr 19 2013

Status

approved