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 A297213 #7 Jul 09 2018 21:22:29
%S A297213 0,1,-3,10,-40,213,-1383,11002,-100616,1062625,-12508067,164543938,
%T A297213 -2368224032,37311284645,-634900302775,11658800863330,
%U A297213 -229004281334768,4804124787023265,-106986109080667043,2524701174424967130,-62860054802079553016,1648303843512405478485
%N A297213 Expansion of e.g.f. log(1 + arctanh(x))*exp(-x).
%H A297213 Robert Israel, <a href="/A297213/b297213.txt">Table of n, a(n) for n = 0..432</a>
%e A297213 log(1 + arctanh(x))*exp(-x) = x/1! - 3*x^2/2! + 10*x^3/3! - 40*x^4/4! + 213*x^5/5! - 1383*x^6/6! + ...
%p A297213 S:= series(log(1+arctanh(x))*exp(-x),x,51):
%p A297213 seq(coeff(S,x,j)*j!,j=0..50); # _Robert Israel_, Jul 09 2018
%t A297213 nmax = 21; CoefficientList[Series[Log[1 + ArcTanh[x]] Exp[-x], {x, 0, nmax}], x] Range[0, nmax]!
%t A297213 nmax = 21; CoefficientList[Series[Log[1 + (Log[1 + x] - Log[1 - x])/2] Exp[-x], {x, 0, nmax}], x] Range[0, nmax]!
%Y A297213 Cf. A009337, A009356, A009374, A009393, A202139, A296439, A297209, A297210, A297211.
%K A297213 sign
%O A297213 0,3
%A A297213 _Ilya Gutkovskiy_, Dec 27 2017