%I #18 Apr 02 2023 13:22:06
%S 1,3,0,8,3,-3,-10,22,22,12,1,-23,-36,-50,-35,93,76,76,57,17,38,16,-7,
%T -103,-103,-129,-129,-185,-214,-184,-215,297,330,296,331,331,294,256,
%U 295,135,94,136,93,5,5,-41,-88,-472,-472,-472,-421,-525,-578,-578,-523,-747,-690,-748
%N a(n) = 1 + Sum_{k=2..n} (-1)^k * k * a(floor(n/k)).
%H Seiichi Manyama, <a href="/A361982/b361982.txt">Table of n, a(n) for n = 1..8191</a>
%F Sum_{k=1..n} (-1)^k * k * a(floor(n/k)) = -1.
%F G.f. A(x) satisfies -x = Sum_{k>=1} (-1)^k * k * (1 - x^k) * A(x^k).
%o (Python)
%o from functools import lru_cache
%o @lru_cache(maxsize=None)
%o def A361982(n):
%o if n <= 1:
%o return 1
%o c, j = 1, 2
%o k1 = n//j
%o while k1 > 1:
%o j2 = n//k1 + 1
%o c += (((j2<<1)-1 if j2&1 else -(j2<<1)+1)+(-(j<<1)+1 if j&1 else (j<<1)-1)>>2)*A361982(k1)
%o j, k1 = j2, n//j2
%o return c+((-(n<<1)-1 if n&1 else (n<<1)+1)+(-(j<<1)+1 if j&1 else (j<<1)-1)>>2) # _Chai Wah Wu_, Apr 02 2023
%Y Partial sums of A332793.
%Y Cf. A347030, A361983.
%Y Cf. A068340.
%K sign,look
%O 1,2
%A _Seiichi Manyama_, Apr 02 2023
|