A333781 G.f.: Sum_{k>=1} (-1)^(k + 1) * x^(k^2) / (1 - x^k).

1, 1, 1, 0, 1, 0, 1, 0, 2, 0, 1, 1, 1, 0, 2, -1, 1, 1, 1, -1, 2, 0, 1, 0, 2, 0, 2, -1, 1, 2, 1, -1, 2, 0, 2, -1, 1, 0, 2, 0, 1, 0, 1, -1, 3, 0, 1, -1, 2, 1, 2, -1, 1, 0, 2, 0, 2, 0, 1, 0, 1, 0, 3, -2, 2, 0, 1, -1, 2, 2, 1, -2, 1, 0, 3, -1, 2, 0, 1, -1, 3, 0, 1, 0, 2, 0, 2, -2, 1, 2

Offset

1,9

Comments

Number of odd divisors of n that are <= sqrt(n) minus number of even divisors of n that are <= sqrt(n).

Links

Table of n, a(n) for n=1..90.

Mathematica

nmax = 90; CoefficientList[Series[Sum[(-1)^(k + 1) x^(k^2)/(1 - x^k), {k, 1, nmax}], {x, 0, nmax}], x] // Rest

Prog

(PARI) a(n) = sumdiv(n, d, if (d^2<=n, if (d%2, 1, -1))); \\ Michel Marcus, Apr 05 2020

Crossrefs

Cf. A038548, A048272, A069288, A333782.

Sequence in context: A347440 A088434 A205745 * A243223 A034178 A317531

Adjacent sequences: A333778 A333779 A333780 * A333782 A333783 A333784

Keyword

sign

Author

Ilya Gutkovskiy, Apr 05 2020

Status

approved