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
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Nov 08 2005
EXTENSIONS
Entry revised by Paul D. Hanna, Apr 19 2013
STATUS
approved