login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #12 Jun 25 2018 22:56:22

%S 0,-1,-346,0,-1,-41,1,-1,-11,3,-1,-4,10,0,-2,36,0,-1,287,0,-1,1441871,

%T 0,-1,-421,0,-1,-45,1,-1,-12,3,-1,-5,9,0,-2,33,0,-1,241,0,-1,180191,0,

%U -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

%N a(n) = floor(cotangent(n)^3).

%H Harry J. Smith, <a href="/A063536/b063536.txt">Table of n, a(n) for n = 1..1000</a>

%o (PARI) j=[]; for(n=1,100,j=concat(j,floor(cotan(n)^3))); j

%o (PARI) { default(realprecision, 50); for (n=1, 1000, write("b063536.txt", n, " ", floor(cotan(n)^3)) ) } \\ _Harry J. Smith_, Aug 25 2009

%K sign

%O 1,3

%A _Jason Earls_, Aug 10 2001