A181059 a(n) = floor(sin(n) - cos(n)).

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

Offset

0,6

Links

G. C. Greubel, Table of n, a(n) for n = 0..500

Formula

a(n) = floor( -sqrt(2)*cos(n + Pi/4) ). - R. J. Mathar, Oct 03 2010

Maple

A181059 := proc(n) -sqrt(2)*cos(n+Pi/4) ; floor(%) ; end proc: seq(A181059(n), n=0..120) ; # R. J. Mathar, Oct 03 2010

Mathematica

Table[Floor[Sin[n]-Cos[n]], {n, 0, 120}] (* Harvey P. Dale, Jun 01 2018 *)

Prog

(Magma) [Floor(Sin(n) - Cos(n)): n in [0..120]]; // G. C. Greubel, Apr 05 2021
(Sage) [floor(-sqrt(2)*cos(n+pi/4)) for n in (0..120)] # G. C. Greubel, Apr 05 2021

Crossrefs

Cf. A126564 (floor sin(n)*cos(n)).

Sequence in context: A234514 A343453 A051031 * A111915 A066520 A088526

Adjacent sequences: A181056 A181057 A181058 * A181060 A181061 A181062

Keyword

sign,easy

Author

Jonathan D. B. Hodgson, Oct 01 2010

Extensions

More terms from R. J. Mathar, Oct 03 2010

Status

approved