A063536 a(n) = floor(cotangent(n)^3).

0, -1, -346, 0, -1, -41, 1, -1, -11, 3, -1, -4, 10, 0, -2, 36, 0, -1, 287, 0, -1, 1441871, 0, -1, -421, 0, -1, -45, 1, -1, -12, 3, -1, -5, 9, 0, -2, 33, 0, -1, 241, 0, -1, 180191, 0, -1, -518, 0, -1, -50, 1, -1, -13, 3, -1, -5, 8, 0, -2, 30, 0, -1, 204, 0, -1, 53369, 0, -1, -649, 0, -1, -56, 1, -1, -14, 3, -1, -5, 8, 0, -2, 27, 0, -1

Offset

1,3

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Prog

(PARI) j=[]; for(n=1, 100, j=concat(j, floor(cotan(n)^3))); j
(PARI) { default(realprecision, 50); for (n=1, 1000, write("b063536.txt", n, " ", floor(cotan(n)^3)) ) } \\ Harry J. Smith, Aug 25 2009

Crossrefs

Sequence in context: A138043 A048904 A139266 * A045102 A225934 A287700

Adjacent sequences: A063533 A063534 A063535 * A063537 A063538 A063539

Keyword

sign

Author

Jason Earls, Aug 10 2001

Status

approved