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

Links

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

Mathematica

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

Crossrefs

Cf. A196199, A381232.

Sequence in context: A286653 A283308 A339959 * A255636 A292085 A262163

Adjacent sequences: A381230 A381231 A381232 * A381240 A381241 A381243

Keyword

sign,easy,new

Author

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

Status

approved