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 A302587 #15 Jun 15 2022 03:22:14 %S A302587 0,1,4,25,224,2641,38592,671665,13548544,310580161,7971353600, %T A302587 226406902921,7049219383296,238722074157841,8735529994928128, %U A302587 343474252543881313,14441163232204292096,646510839624706118401,30704150325602206089216,1541807339347429264648441 %N A302587 a(n) = n! * [x^n] exp(n*x)*tanh(x). %H A302587 Robert Israel, <a href="/A302587/b302587.txt">Table of n, a(n) for n = 0..386</a> %H A302587 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a> %F A302587 a(n) ~ tanh(1) * n^n. - _Vaclav Kotesovec_, Jun 08 2019 %p A302587 N:= 100: # to get a(0)..a(N) %p A302587 T:= series(tanh(x),x,N+1): %p A302587 C:= [seq(coeff(T,x,j),j=1..N)]: %p A302587 seq(n! * add(C[i]*n^(n-i)/(n-i)!,i=1..n,2), n=0..N); # _Robert Israel_, Apr 10 2018 %t A302587 Table[n! SeriesCoefficient[Exp[n x] Tanh[x], {x, 0, n}], {n, 0, 19}] %o A302587 (PARI) a(n) = my(x='x+O('x^(n+1))); polcoeff(n!*exp(n*x)*tanh(x), n); \\ _Michel Marcus_, Apr 11 2018; corrected Jun 15 2022 %Y A302587 Cf. A000182, A009832, A062024, A302583, A302584, A302585, A302586. %K A302587 nonn %O A302587 0,3 %A A302587 _Ilya Gutkovskiy_, Apr 10 2018