OFFSET
-2,6
LINKS
G. C. Greubel, Table of n, a(n) for n = -2..1000
EXAMPLE
sqrt{1 - 1/sqrt{2}} = 0.541196100146196984399723205366... = [0; 1, 1, 5, 1, 1, 3, 6, 1, 3, 3, 10, 10, ...], the convergents of which are 0/1, 1/0, [0/1], 1/1, 1/2, 6/11, 7/13, 13/24, 46/85, 289/534, 335/619, 1294/2391, 4217/7792, ..., with brackets marking index 0. Those prior to index 0 are for initializing the recurrence.
MATHEMATICA
nmax = 100; cfrac = ContinuedFraction[ Sqrt[ 1 - 1/Sqrt[2] ], nmax + 1]; Join[ {0, 1}, Numerator[ Table[ FromContinuedFraction[ Take[cfrac, j] ], {j, 1, nmax + 1} ] ] ]
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
Stuart Clary, Jan 14 2009
STATUS
approved