A137197 Decimal expansion of the sum of the reciprocals of the elements of A007908.

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

Offset: 1

Author

Paolo P. Lava and Giorgio Balzarotti, Mar 04 2008

Keywords

• easy
• nonn
• base
• cons

Examples

			1 + 1/12 + 1/123 + 1/1234 + 1/12345 + 1/123456 + .....= 1.0923637910951227888013796063072721016963921894258793349801635199721622546190953748287037568512919456
		

Crossrefs

Cf. A007908.

Programs

Maple

> readlib(log10); P:=proc(n) local a,i,j,k; a:=1; k:=2; j:=1; for i from 1 by 1 to n do j:=j*10^(trunc(evalf(log10(k)))+1)+k; a:=a+1/j; k:=k+1; lprint(evalf(a,101)); od; end: P(1000);