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,8

Links

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

Mathematica

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

Crossrefs

Cf. A377091, A379070.

Sequence in context: A025862 A004540 A353945 * A089614 A064875 A216657

Adjacent sequences: A379068 A379069 A379070 * A379072 A379073 A379074

Keyword

sign

Author

N. J. A. Sloane, Dec 29 2024

Status

approved