OFFSET
1,3
MATHEMATICA
s = 0; Do[f = 0; While[Fibonacci[f] <= s || Mod[Fibonacci[f] - s, n] > 0, f++ ]; k = (Fibonacci[f] - s)/n; Print[k]; s = s + n*k, {n, 30}] (* Ryan Propper, May 06 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 09 2005
EXTENSIONS
More terms from Ryan Propper, May 06 2006
STATUS
approved