A381233 Concatenate the sequences S(k) = [0, 1, -1, ..., k, -k] for k = 0, 1, ...

0, 0, 1, -1, 0, 1, -1, 2, -2, 0, 1, -1, 2, -2, 3, -3, 0, 1, -1, 2, -2, 3, -3, 4, -4, 0, 1, -1, 2, -2, 3, -3, 4, -4, 5, -5, 0, 1, -1, 2, -2, 3, -3, 4, -4, 5, -5, 6, -6, 0, 1, -1, 2, -2, 3, -3, 4, -4, 5, -5, 6, -6, 7, -7, 0, 1, -1, 2, -2, 3, -3, 4, -4, 5, -5, 6, -6, 7, -7, 8, -8, 0, 1, -1, 2, -2, 3, -3, 4, -4, 5, -5, 6, -6, 7, -7, 8, -8, 9, -9

Offset: 0

Author

N. J. A. Sloane, Mar 01 2025 [Suggested by Franklin T. Adams-Watters, Sep 21 2011]

Keywords

• sign
• easy

Links

• Paolo Xausa, Table of n, a(n) for n = 0..10200 (k = 0..100)

Crossrefs

Cf. A196199, A381232.

Programs

Mathematica

Flatten[Table[(-1)^j*Floor[j/2], {k, 0, 10}, {j, 2*k + 1}]] (* Paolo Xausa, Mar 01 2025 *)