A073823 Decimal expansion of number with continued fraction expansion 0, 1, 3, 6, 10, ... (the triangular numbers).

7, 5, 9, 8, 4, 3, 5, 4, 3, 0, 6, 2, 0, 6, 1, 4, 7, 0, 1, 0, 5, 2, 7, 7, 8, 4, 1, 7, 9, 1, 8, 0, 9, 7, 0, 8, 8, 6, 4, 6, 8, 0, 2, 4, 3, 8, 5, 1, 7, 2, 6, 1, 5, 8, 1, 7, 8, 5, 9, 8, 8, 5, 2, 3, 0, 4, 3, 0, 9, 9, 4, 2, 0, 2, 9, 8, 1, 2, 4, 7, 1, 8, 8, 3, 5, 5, 6, 1, 4, 5, 9, 6, 1, 4, 7, 9, 1, 9, 4, 0, 0, 1, 3, 5

Offset: 0

Author

Rick L. Shepherd, Aug 12 2002

Keywords

• cons
• nonn

Examples

			0.75984354306206147010527784179...
		

Crossrefs

Cf. A000217 (triangular numbers).

Programs

Mathematica

RealDigits[FromContinuedFraction[Accumulate[Range[0,200]]],10,120] [[1]] (* Harvey P. Dale, Sep 25 2012 *)

PARI

dec_exp(v)= w=contfracpnqn(v); w[1,1]/w[2,1]+0. dec_exp(vector(2000,i,i*(i-1)/2))