OFFSET
1,2
COMMENTS
For definition of how the "Greedy Frac" sequence is defined, see other sequences in index.
EXAMPLE
a(3) = 107 since frac(1x) + frac(11x) + frac(107x) < 1, while frac(1x) + frac(11x) + frac(k*x) > 1 for all k>11 and k<107.
MAPLE
Digits := 1000: a := []: s := 0: x := evalf(Catalan): for n from 1 to 5000000 do: temp := evalf(s+frac(n*x)): if (temp<1.0) then a := [op(a), n]: print(n): s := s+evalf(frac(n*x)): fi: od: a;
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 31 2003
STATUS
approved