login
A013503
E.g.f. exp(sec(x)-sech(x)) (even powers only).
1
1, 2, 12, 242, 8512, 438722, 34406592, 3496736882, 471749623552, 79119810366722, 16325059994068992, 4053422315328489842, 1187794482738667098112, 407438035244753039317442, 160833904474220565517811712, 72690404080321962122585230322
OFFSET
0,2
LINKS
EXAMPLE
exp(sec(x)-sech(x)) = 1+2/2!*x^2+12/4!*x^4+242/6!*x^6+8512/8!*x^8...
MATHEMATICA
With[{nn=40}, Take[CoefficientList[Series[Exp[Sec[x]-Sech[x]], {x, 0, nn}], x]Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Dec 23 2012 *)
CROSSREFS
Sequence in context: A111403 A325501 A007986 * A231074 A132481 A369680
KEYWORD
nonn
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Confirmed by N. J. A. Sloane, Dec 17 2011
More terms from Harvey P. Dale, Dec 23 2012
STATUS
approved