|
|
A320023
|
|
Denominators a(n) of the fractions Sum_{n>=1} {(-1)^(n+1)*n/a(n)} = 1/a(1) - 2/a(2) + 3/a(3) - ... such that the sum has the concatenation of these denominators as decimal part. Case a(1) = 3.
|
|
10
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
1/3 = 0.333...
1/3 - 2/254 = 0.32545931...
1/3 - 2/254 + 3/91945 = 0.3254919457869...
The sum is 0.3 254 91945 ...
|
|
MAPLE
|
P:=proc(q, h) local a, b, d, n, t; a:=1/h; b:=ilog10(h)+1; d:=h;
print(d); t:=-2; for n from 1 to q do if trunc(evalf(a+t/n, 100)*10^(b+ilog10(n)+1))=d*10^(ilog10(n)+1)+n then b:=b+ilog10(n)+1; d:=d*10^(ilog10(n)+1)+n;
a:=a+t/n; t:=(-1)^abs(t)*(abs(t)+1); print(n); fi; od; end: P(10^20, 3);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|