login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A013256
Expansion of e.g.f.: sec(log(x+1)-arctan(x))=1+3/4!*x^4-40/5!*x^5+250/6!*x^6-840/7!*x^7...
0
1, 0, 0, 0, 3, -40, 250, -840, 5145, -117360, 1667700, -15263600, 150117275, -2670166200, 50627578950, -785508087000, 12133753256625, -237020801836000, 5185811491549000, -108420617788236000
OFFSET
0,5
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Sec[Log[x+1]-ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 19 2022 *)
CROSSREFS
Sequence in context: A013257 A013250 A013255 * A013293 A013286 A013291
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Definition clarified by Harvey P. Dale, Dec 19 2022
STATUS
approved