OFFSET
1,3
MATHEMATICA
Table[ Im[ Numerator[ FromContinuedFraction[ Table[1 + I, {n}]]]], {n, 30}]
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Robert G. Wilson v, Mar 11 2004
STATUS
approved