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 A248798 #28 Nov 07 2014 16:10:43
%S A248798 1,2,22,554,25366,1844042,195320182,28410656234,5435279204566,
%T A248798 1323405341744522,399637856402514742,146583029519189084714,
%U A248798 64192080498935634774166,33083140834428825424557002,19821855421651521815140243702,13662206025133299916665629413994
%N A248798 E.g.f.: Sum_{n>=0} (exp((n+1)*x) - 1)^n.
%H A248798 Vaclav Kotesovec, <a href="/A248798/b248798.txt">Table of n, a(n) for n = 0..200</a>
%F A248798 E.g.f.: Sum_{n>=0} exp(n*(n+1)*x) / (1 + exp(n*x))^(n+1).
%F A248798 E.g.f.: Sum_{n>=0} 1 / (1 + exp(-n*x))^(n+1).
%F A248798 O.g.f.: Sum_{n>=0} (n+1)^n * n! * x^n / Product_{k=1..n} (1 - (n+1)*k*x).
%F A248798 a(n) = Sum_{k=0..n} (k+1)^n * k! * Stirling2(n,k).
%F A248798 a(n) ~ c * r^(2*n) * n^(2*n+1/2) * (1+exp(1/r))^n / exp(2*n), where r = 0.8737024332396683304965683047207192982139922672025395099... is the root of the equation (1+exp(-1/r)) * LambertW(-exp(-1/r)/r) = -1/r, and c = 6.4659886138749084757432110017013709735979825189027... . - _Vaclav Kotesovec_, Nov 07 2014
%e A248798 E.g.f.: E(x) = 1 + 2*x + 22*x^2/2! + 554*x^3/3! + 25366*x^4/4! + 1844042*x^5/5! +...
%e A248798 such that
%e A248798 E(x) = 1 + (exp(2*x)-1) + (exp(3*x)-1)^2 + (exp(4*x)-1)^3 + (exp(5*x)-1)^4 +...
%e A248798 The e.g.f. is also given by the infinite series:
%e A248798 E(x) = 1/2 + exp(2*x)/(1+exp(x))^2 + exp(6*x)/(1+exp(2*x))^3 + exp(12*x)/(1+exp(3*x))^4 + exp(20*x)/(1+exp(4*x))^5 + exp(30*x)/(1+exp(5*x))^6 +...
%e A248798 or, equivalently,
%e A248798 E(x) = 1/2 + 1/(1+exp(-x))^2 + 1/(1+exp(-2*x))^3 + 1/(1+exp(-3*x))^4 + 1/(1+exp(-4*x))^5 + 1/(1+exp(-5*x))^6 + 1/(1+exp(-6*x))^7 +...
%e A248798 ORDINARY GENERATING FUNCTION.
%e A248798 O.g.f.: A(x) = 1 + 2*x + 22*x^2 + 554*x^3 + 25366*x^4 + 1844042*x^5 +...
%e A248798 where
%e A248798 A(x) = 1 + 2*x/(1-2*x) + 3^2*2!*x^2/((1-3*1*x)*(1-3*2*x)) + 4^3*3!*x^3/((1-4*1*x)*(1-4*2*x)*(1-4*3*x)) + 5^4*4!*x^4/((1-5*1*x)*(1-5*2*x)*(1-5*3*x)*(1-5*4*x)) + 6^5*5!*x^5/((1-6*1*x)*(1-6*2*x)*(1-6*3*x)*(1-6*4*x)*(1-6*5*x)) +...
%t A248798 Table[Sum[(k+1)^n * k! * StirlingS2[n,k],{k,0,n}],{n,0,20}] (* _Vaclav Kotesovec_, Nov 02 2014 *)
%o A248798 (PARI) /* By definition: */
%o A248798 {a(n)=n!*polcoeff(sum(k=0, n, (exp((k+1)*x +x*O(x^n)) - 1)^k), n)}
%o A248798 for(n=0, 25, print1(a(n), ", "))
%o A248798 (PARI) /* From e.g.f. infinite series: */
%o A248798 \p100 \\ set precision
%o A248798 {A=Vec(serlaplace(sum(n=0, 500, 1.*exp(n*(n+1)*x +O(x^26))/(1 + exp(n*x +O(x^26)))^(n+1)) ))}
%o A248798 for(n=0, #A-1, print1(round(A[n+1]), ", "))
%o A248798 (PARI) /* From o.g.f.: */
%o A248798 {a(n)=polcoeff(sum(m=0, n, (m+1)^m*m!*x^m/prod(k=1, m, 1-(m+1)*k*x+x*O(x^n))), n)}
%o A248798 for(n=0, 25, print1(a(n), ", "))
%o A248798 (PARI) {Stirling2(n, k)=n!*polcoeff(((exp(x+x*O(x^n))-1)^k)/k!, n)}
%o A248798 {a(n)=sum(k=0, n, (k+1)^n * k! * Stirling2(n,k))}
%o A248798 for(n=0, 25, print1(a(n), ", "))
%Y A248798 Cf. A248656, A122399.
%K A248798 nonn
%O A248798 0,2
%A A248798 _Paul D. Hanna_, Oct 30 2014