OFFSET
0,3
COMMENTS
7^a(n) gets increasingly close to 10^(numerator of convergent).
MATHEMATICA
Rest[Denominator[Convergents[Log[10, 7], 30]]] (* Harvey P. Dale, Aug 23 2013 *)
PROG
(PARI) {my(cf=contfrac(log(7)/log(10))); vector(#cf, i, contfracpnqn( cf[1..i])[2, 1])}
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
V. Raman, Aug 23 2012
EXTENSIONS
a(0)=1 prepended by Andrew Howroyd, Jul 09 2024
STATUS
approved