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
KEYWORD
nonn,frac
AUTHOR
V. Raman, Aug 23 2012
EXTENSIONS
a(0)=0 prepended by Andrew Howroyd, Jul 09 2024
STATUS
approved