OFFSET
1,1
COMMENTS
FORMULA
a(n) = A089959(n) - 1.
MAPLE
fpart := proc(x)
x-floor(x) ;
end proc:
A089961 := proc(n)
invphi := 2/(1+sqrt(5)) ;
fn := fpart(n*invphi) ;
1/fn/(1-fn);
floor(%)-1 ;
end proc: # R. J. Mathar, May 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary W. Adamson, Nov 20 2003
STATUS
approved