This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A296982 #7 Mar 27 2019 03:50:25 %S A296982 0,1,-1,4,-18,118,-930,8888,-98504,1248784,-17790480,281590032, %T A296982 -4901447232,93064850448,-1914144990576,42396742460928, %U A296982 -1006101059149440,25466710774651776,-684902462140798848,19503187752732408576,-586221766070655432960 %N A296982 Expansion of e.g.f. arctanh(log(1 + x)). %e A296982 arctanh(log(1 + x)) = x^1/1! - x^2/2! + 4*x^3/3! - 18*x^4/4! + 118*x^5/5! - 930*x^6/6! + ... %p A296982 a:=series(arctanh(log(1+x)),x=0,21): seq(n!*coeff(a,x,n),n=0..20); # _Paolo P. Lava_, Mar 26 2019 %t A296982 nmax = 20; CoefficientList[Series[ArcTanh[Log[1 + x]], {x, 0, nmax}], x] Range[0, nmax]! %t A296982 nmax = 20; CoefficientList[Series[Log[1 + Log[1 + x]]/2 - Log[1 - Log[1 + x]]/2, {x, 0, nmax}], x] Range[0, nmax]! %Y A296982 Cf. A001710, A003703, A003708, A009024, A009454, A009775, A010050, A104150, A202139, A296979, A296980, A296981. %K A296982 sign %O A296982 0,4 %A A296982 _Ilya Gutkovskiy_, Dec 22 2017