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 A296465 #7 Dec 13 2017 18:36:48
%S A296465 1,4,88,4688,459520,71876352,16428530688,5167215464448,
%T A296465 2140879726411776,1130276555155243008,740796870212763254784,
%U A296465 590192778209307913617408,561748717440430309770264576,629564244208933873601143111680,820602153197407426121272991416320,1230877720962045060728502509025361920
%N A296465 Expansion of e.g.f. arctanh(arctanh(x)) (odd powers only).
%F A296465 E.g.f.: arctan(arctan(x)) (odd powers only, absolute values).
%F A296465 E.g.f.: (log(2 - log(1 - x) + log(1 + x)) - log(2 + log(1 - x) - log(1 + x)))/2 (odd powers only).
%F A296465 a(n) ~ (2*n)! * ((exp(2) + 1)/(exp(2) - 1))^(2*n+1). - _Vaclav Kotesovec_, Dec 13 2017
%e A296465 arctanh(arctanh(x)) = x/1! + 4*x^3/3! + 88*x^5/5! + 4688*x^7/7! + 459520*x^9/9! + ...
%t A296465 nmax = 16; Table[(CoefficientList[Series[ArcTanh[ArcTanh[x]], {x, 0, 2 nmax + 1}], x] Range[0, 2 nmax + 1]!)[[n]], {n, 2, 2 nmax, 2}]
%t A296465 nmax = 16; Table[(CoefficientList[Series[(Log[2 - Log[1 - x] + Log[1 + x]] - Log[2 + Log[1 - x] - Log[1 + x]])/2, {x, 0, 2 nmax + 1}], x] Range[0, 2 nmax + 1]!)[[n]], {n, 2, 2 nmax, 2}]
%Y A296465 Cf. A003718, A010050, A012263, A296467.
%K A296465 nonn
%O A296465 0,2
%A A296465 _Ilya Gutkovskiy_, Dec 13 2017