OFFSET
2,2
MAPLE
nmax:=15; c(2) := -1/3: for n from 3 to nmax do c(n) := (2*n-2)*c(n-1)/(2*n-1)-1/ ((n-1)*(2*n-1)) end do: for n from 2 to nmax do GCS(n-1) := ln(1/(2^(-(2*(n-1)-1-floor(ln(n-1)/ ln(2))))))/ln(2); p(n) := 2^(-GCS(n-1))*(2*n-1)!; ETA(n, 1) := p(n)*c(n) end do: seq(ETA(n, 1), n=2..nmax);
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Johannes W. Meijer, May 24 2009
STATUS
approved