OFFSET
0,1
COMMENTS
0.432262081510854951985079559730... = [0, 0, 2, 3, 5, 4, 10, 8, 8, 14, 12, 13, 19, 16, 18, ...]
MAPLE
with(numtheory): A:=proc(w) local j, k; k:=0; j:=w; while j mod 2<>1 do k:=k+1; j:=j/2; od;
sigma(2*w+1)+sigma(2*w-1)+sigma(w/2^k)*2^(k+1)-6*w-2; end:
P:=proc(q) local a, n; a:=A(q+1); for n from q by -1 to 3 do a:=1/a+A(n); od;
print(evalf(1/a, 100)); end: P(10^3);
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Paolo P. Lava, Apr 01 2026
STATUS
approved
