A000484 a(n) = round(cos(n)).

1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0

Offset: 0

Author

N. J. A. Sloane

Keywords

• sign
• easy

Links

• T. D. Noe, Table of n, a(n) for n = 0..1000

Programs

Maple

f := n->round(evalf(cos(n)));

Mathematica

Array[ Round[ Cos[ # ] // N ]&, 90, 0 ]