%I #21 Aug 23 2013 15:02:54
%S 1,6,13,71,439,510,2455069,2455579,4910648,12276875,29464398,71205671,
%T 100670069,171875740,272545809,1807150594,9308298779,11115449373,
%U 931890596738,6534349626539,14000589849816,20534939476355,34535529326171,55070468802526,475099279746379,2430566867534421
%N Denominators of the continued fraction convergents of log_10(7).
%C 7^a(n) gets increasingly close to 10^(numerator of convergent).
%t Rest[Denominator[Convergents[Log[10,7],30]]] (* _Harvey P. Dale_, Aug 23 2013 *)
%o (PARI) default(realprecision, 21000); for(i=1,100,print(contfracpnqn(contfrac(log(7)/log(10),0,i))[2,1]))
%Y Cf. A046104, A073733.
%Y Numerators are in A215759.
%K nonn,frac
%O 1,2
%A _V. Raman_, Aug 23 2012
|