1,2
Table of n, a(n) for n=1..105.
1.5353705088362529850...
rd[k_] := rd[k] = RealDigits[ N[ Sum[ 1/Fibonacci[2*n], {n, 1, 2^k}], 105]][[1]]; rd[k = 4]; While[ rd[k] != rd[k - 1], k++]; rd[k] (* Jean-François Alcover, Oct 29 2012 *)
Cf. A079586, A153387.
Sequence in context: A270915 A319461 A201762 * A112920 A109364 A122277
Adjacent sequences: A153383 A153384 A153385 * A153387 A153388 A153389
nonn,cons
Eric W. Weisstein, Dec 25 2008
approved