OFFSET
1,5
COMMENTS
LINKS
A.H.M. Smeets, Table of n, a(n) for n = 1..20000
EXAMPLE
n convergent decimal expansion a(n)
== ============ ==================== ====
1 0 / 1 0.0 0
2 1 / 1 1.0 -1
3 2 / 3 0.66... 1
4 7 / 10 0.7... 0
5 9 / 13 0.692... 2
6 61 / 88 0.69318... 4
7 192 / 277 0.693140... 5
8 253 / 365 0.69315... 4
9 445 / 642 0.693146... 5
10 1143 / 1649 0.6931473... 6
oo lim = log(2) 0.693147180559945... --
MATHEMATICA
a[n_] := Block[{k = 1, a = RealDigits[Log@2, 10, n + 10][[1]], b = RealDigits[ FromContinuedFraction@ ContinuedFraction[ Log@2, n], 10, n + 10][[1]]}, While[a[[k]] == b[[k]], k++]; k - 1]; a[1] = 0; a[2] = -1; Array[a, 69] (* Robert G. Wilson v, Aug 09 2018 *)
CROSSREFS
KEYWORD
sign,base
AUTHOR
A.H.M. Smeets, Jul 31 2018
EXTENSIONS
a(61) onward from Robert G. Wilson v, Aug 09 2018
STATUS
approved