OFFSET
1,2
COMMENTS
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
EXAMPLE
13-5*sqrt(5) = 1.819660112501051517954131656343618822797...
MATHEMATICA
f[n_] := Fibonacci[n]; h[n_] := HarmonicMean[{2 + f[n + 1], 1 + f[n + 2]}]; x = Limit[-2 f[n] + h[n], n -> Infinity] (* "proof" *)
d = RealDigits[x, 10, 120][[1]] (* A225667 *)
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Jul 21 2013
STATUS
approved