login
A215759
Numerators of the continued fraction convergents of log_10(7).
1
0, 1, 5, 11, 60, 371, 431, 2074774, 2075205, 4149979, 10375163, 24900305, 60175773, 85076078, 145251851, 230327929, 1527219425, 7866425054, 9393644479, 787538916811, 5522166062156, 11831871041123, 17354037103279, 29185908144402, 46539945247681, 401505470125850, 2054067295876931
OFFSET
0,3
COMMENTS
7^(denominator of convergent) gets increasingly close to 10^a(n), agreeing to approximately a(n) digits
MATHEMATICA
Rest[Numerator[Convergents[Log[10, 7], 30]]] (* Harvey P. Dale, Feb 16 2014 *)
PROG
(PARI) {my(cf=contfrac(log(7)/log(10))); vector(#cf, i, contfracpnqn( cf[1..i])[1, 1])}
CROSSREFS
Denominators are in A215755.
Sequence in context: A168243 A173875 A095150 * A041697 A121170 A239322
KEYWORD
nonn,frac
AUTHOR
V. Raman, Aug 23 2012
EXTENSIONS
a(0)=0 prepended by Andrew Howroyd, Jul 09 2024
STATUS
approved