OFFSET
0,1
COMMENTS
According to the Mc Laughlin-Wyshinski paper, Tasoev proposed continued fractions of the form [a0;a,...,a,a^2,...,a^2,a^3,...,a^3,...], where a0 >= 0, a >= 2 and m >= 1 are integers and each power of a occurs m times. This sequence is for the minimal values a0 = 0, a = 2 and m = 1. Komatsu "derived a closed form for the general case (m >= 1, arbitrary)" and the expression given in (1.2) (where a0=0 and m=1) of the linked paper and which is used in the second PARI/GP program below.
LINKS
James Mc Laughlin and Nancy J. Wyshinski, Ramanujan and the regular continued fraction expansion of real numbers, Mathematical Proceedings of the Cambridge Philosophical Society, Vol. 138. No. 3 (2005), pp. 367-381; arXiv preprint arXiv:math/0402461 [math.NT], 2004; alternative link. See page 2.
FORMULA
EXAMPLE
0.445934640512202668119554340682617684270408845203438507903263560500661900...
MATHEMATICA
RealDigits[FromContinuedFraction[{0, 2^Range@ 19}], 10, 111][[1]] (* Robert G. Wilson v, Jan 04 2013 *)
PROG
(PARI)
\p 400
dec_exp(v)= w=contfracpnqn(v); w[1, 1]/w[2, 1]+0.
dec_exp(vector(400, i, if(i==1, 0, 2^(i-1)))
/* The following uses Komatsu's expression for given a; a0=0, m=1 */
{Komatsu(a)=suminf(s=0, a^(-(s+1)^2)*prod(i=1, s, (a^(2*i)-1)^(-1))) /suminf(s=0, a^(-s^2)*prod(i=1, s, (a^(2*i)-1)^(-1)))}
Komatsu(2) /* generates this sequence's constant */
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Rick L. Shepherd, Jun 30 2004
STATUS
approved