cp's OEIS Frontend

A181541 E.g.f.: A(x) = Product_{n>=1} (1 + x^n/n)^n.

%I A181541 #14 Oct 07 2020 08:08:46
%S A181541 1,1,2,12,54,390,3120,28140,290640,3354960,42561120,586259520,
%T A181541 8806422240,141680579040,2446025662080,44990666360640,877867974023040,
%U A181541 18115179826423680,394351821275892480,9019730566889602560
%N A181541 E.g.f.: A(x) = Product_{n>=1} (1 + x^n/n)^n.
%H A181541 Seiichi Manyama, <a href="/A181541/b181541.txt">Table of n, a(n) for n = 0..444</a>
%F A181541 E.g.f.: exp(Sum_{k>=1} Sum_{j>=1} x^(j*k)/(k*(-j)^(k-1))). - _Ilya Gutkovskiy_, Sep 12 2018
%e A181541 E.g.f.: A(x) = 1 + x + 2*x^2/2! + 12*x^3/3! + 54*x^4/4! + 390*x^5/5! + ...
%e A181541 A(x) = (1+x)*(1 + x^2/2)^2*(1 + x^3/3)^3*(1 + x^4/4)^4*(1 + x^5/5)^5*...
%t A181541 nmax = 20; CoefficientList[Series[Product[(1+x^k/k)^k, {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]! (* _Vaclav Kotesovec_, Oct 07 2020 *)
%o A181541 (PARI) {a(n)=n!*polcoeff(prod(m=1,n,(1+x^m/m+x*O(x^n))^m),n)}
%Y A181541 Cf. A007838, A294469.
%K A181541 nonn
%O A181541 0,3
%A A181541 _Paul D. Hanna_, Nov 02 2010