OFFSET
1,1
MATHEMATICA
a = {}; k = N[1/Sqrt[13], 1000]; Do[s = Ceiling[1/k]; AppendTo[a, s]; k = k - 1/s, {n, 1, 10}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Artur Jasinski, Sep 28 2008
STATUS
approved