login
A012467
sech(arctan(x)^2) = 1 - 12/4!*x^4 + 480/6!*x^6 - 21168/8!*x^8 + ...
1
1, 0, -12, 480, -21168, 741120, 61942848, -29951061504, 8015861467392, -1745546459848704, 215844160641143808, 91751419512905687040, -109687232118939992862720, 71900040403600384794624000
OFFSET
0,3
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Sech[ArcTan[x]^2], {x, 0, nn}] , x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Apr 30 2012 *)
CROSSREFS
Sequence in context: A003749 A012395 A012687 * A009083 A012681 A009168
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Definition corrected by Harvey P. Dale, Apr 30 2012
STATUS
approved