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 A202152 #16 Jun 02 2025 07:24:22
%S A202152 1,1,1,7,13,101,361,2269,18201,48817,1436401,-2283269,157443397,
%T A202152 -826037939,21355181849,-160556822999,3084325024561,-22223879489055,
%U A202152 291212769688417,2180748026158255,-118745486165378819,4884619264768661461,-140063412525642293687,4020051993317128467029
%N A202152 Expansion of e.g.f.: exp(x*(1+x)^x).
%F A202152 a(n)=n!*sum(m=1..n, sum(k=0..n-m, (m^k*stirling1(n-m-k,k))/(n-m-k)!)/m!), n>0, a(0)=1.
%t A202152 With[{nn=30},CoefficientList[Series[Exp[x (1+x)^x],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Oct 13 2019 *)
%o A202152 (Maxima)
%o A202152 a(n):=if n=0 then 1 else n!*sum(sum((m^k*stirling1(n-m-k,k))/(n-m-k)!,k,0,n-m)/m!,m,1,n);
%K A202152 sign
%O A202152 0,4
%A A202152 _Vladimir Kruchinin_, Dec 12 2011
%E A202152 Definition clarified by _Harvey P. Dale_, Oct 13 2019