login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A113738
Continued fraction expansion of the constant given by Sum_{n>=0} A083952(n)/2^(n+1).
0
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
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
Sequence in context: A193163 A106157 A181816 * A287854 A355341 A245714
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Nov 08 2005
EXTENSIONS
Entry revised by Paul D. Hanna, Apr 19 2013
STATUS
approved