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

Links

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

Maple

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

Mathematica

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

Crossrefs

Sequence in context: A016345 A016148 A016333 * A014978 A015947 A015590

Adjacent sequences: A000481 A000482 A000483 * A000485 A000486 A000487

Keyword

sign,easy

Author

N. J. A. Sloane

Status

approved