OFFSET
5,1
MAPLE
f := proc(b1, b2) local c1, c2, t1, t2, t3, t4, i; c1 := numer(b1/b2); c2 := denom(b1/b2); i := 0; while c2 <> 1 do i := i+1; t1 := ceil(c1/c2); t2 := b1*t1; t3 := t2/b2; c1 := numer(t3); c2 := denom(t3); od: RETURN(i); end; [seq(f(n, 4), n=5..120)];
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 16 2002
STATUS
approved