A379071 a(n) = |A377091[n]| - floor(n/2).

0, 1, 1, 1, -1, 1, 1, 2, 0, -1, 1, 2, 2, 2, 0, -1, -3, 1, 1, 2, 2, 3, -2, -1, -1, 0, 0, 1, 1, 2, 2, 3, 2, -2, -2, -1, -1, 1, 1, 2, 2, 3, 3, 4, -1, -2, -4, 0, -2, 2, 2, 3, -2, -1, -1, 0, 0, 1, 1, 2, 2, 2, 0, -1, -3, 1, 1, 2, 2, 3, 3, 4, 4, 5, 3, -1, -3, -4, -6, -2, -2, -1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 5, -5, -4, -4, -3, -3, -2, -2, -1, -1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6

Offset: 0

Author

N. J. A. Sloane, Dec 29 2024

Keywords

• sign

Links

• N. J. A. Sloane, Table of n, a(n) for n = 0..20000

Crossrefs

Cf. A377091, A379070.

Programs

Mathematica

(* A377091list is defined at A377091 *)
Abs[#] - BitShiftRight[Range[0, Length[#] - 1]] & [A377091list[100]] (* Paolo Xausa, Jan 21 2025 *)