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 A343884 #60 Mar 25 2023 06:19:17 %S A343884 1,3,15,103,885,9051,106843,1425495,21166953,345678355,6150501831, %T A343884 118313311623,2444917863325,53982840948843,1267645359117075, %U A343884 31531781398100791,827910838693667793,22874802838645217955,663243613324249850623,20130710499843811837095 %N A343884 Expansion of e.g.f. exp( x/(1-x)^2 ) / (1-x)^2. %H A343884 Winston de Greef, <a href="/A343884/b343884.txt">Table of n, a(n) for n = 0..430</a> %F A343884 a(n) = n! * Sum_{k=0..n} binomial(n+k+1,n-k)/k! = Sum_{k=0..n} (n+k+1)!/(2*k+1)! * binomial(n,k). %F A343884 From _Vaclav Kotesovec_, Mar 25 2023: (Start) %F A343884 a(n) ~ exp(-1/12 + 3*2^(-2/3)*n^(2/3) - n) * n^(n + 1/2) / sqrt(6) * (1 + 2^(1/3)/n^(1/3) + 323/(360*2^(1/3)*n^(2/3))). %F A343884 a(n) = 3*n*a(n-1) - 3*(n-1)^2*a(n-2) + (n-2)*(n-1)^2*a(n-3). (End) %t A343884 Table[n!*Sum[Binomial[n + k + 1, n - k]/k!, {k, 0, n}], {n, 0, 20}] (* _Vaclav Kotesovec_, Mar 25 2023 *) %o A343884 (PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(exp(x/(1-x)^2)/(1-x)^2)) %o A343884 (PARI) a(n) = n! * sum(k=0, n, binomial(n+k+1,n-k)/k!) \\ _Winston de Greef_, Mar 19 2023 %Y A343884 Column k=2 of A361616. %Y A343884 Cf. A000262, A361598. %K A343884 nonn %O A343884 0,2 %A A343884 _Seiichi Manyama_, Mar 18 2023