OFFSET
1,3
EXAMPLE
1 + 1/12 + 1/123 + 1/1234 + 1/12345 + 1/123456 + .....= 1.0923637910951227888013796063072721016963921894258793349801635199721622546190953748287037568512919456
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);
CROSSREFS
KEYWORD
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Mar 04 2008
STATUS
approved