|
|
A180657
|
|
Numerator of the fraction tan( Sum_{k=1..n} arctan(k) ).
|
|
1
|
|
|
1, -3, 0, 4, -9, 105, -308, 36, -423, 2387, -26004, 104472, -50617, 119889, -5466072, 3154072, 51692571, -2921193, 351666136, -1278405156, 11188330461, -68445012691, 553299094188, -4915961459556
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Let x(1)=1 and x(n) = (x(n-1)+n)/(1-n*x(n-1)). Then a(n) = numerator(x(n)).
|
|
EXAMPLE
|
The fractions are x(1)=1, x(2)=-3, x(3)=0, x(4)=4, x(5)=-9/19, x(6)=105/73 etc.
|
|
MAPLE
|
A := proc(n) local x, itr; x := 1 ; for itr from 2 to n do x := (x+itr)/(1-itr*x) ; end do; numer(x) ; end proc:
seq(A(n), n=1..30) ;
|
|
MATHEMATICA
|
x[1] := 1; x[n_] := (x[n - 1] + n)/(1 - n * x[n - 1]); Table[Numerator[x[n]], {n, 10}] (* Alonso del Arte, Jan 21 2011 *)
(* Just for verification: *)
x[n_] := Tan[Sum[ArcTan[k], {k, n}]] // TrigExpand;
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,frac,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|