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 A193160 #8 Mar 30 2012 18:37:27
%S A193160 1,2,9,68,760,11664,233828,5905696,182846592,6792372480,297550188672,
%T A193160 15153482847744,886517886778368,58975120009537536,4422337095720648960,
%U A193160 370957479138591903744,34576037926690499493888,3559813114275891217760256
%N A193160 E.g.f. A(x) satisfies: A(x/(1-x)) = x*A'(x).
%F A193160 a(n) = n*(n-2)!* Sum_{k=1..n-1} C(n-1,k-1)* a(k)/k! for n>1 with a(1)=1.
%F A193160 a(n) = n*A193161(n-1).
%e A193160 E.g.f.: A(x) = x + 2*x^2/2! + 9*x^3/3! + 68*x^4/4! + 760*x^5/5! +...
%e A193160 Related expansions:
%e A193160 A(x/(1-x)) = x + 4*x^2/2! + 27*x^3/3! + 272*x^4/4! + 3800*x^5/5! +...
%e A193160 x*A'(x) = x + 4*x^2/2! + 27*x^3/3! + 272*x^4/4! + 3800*x^5/5! +...
%o A193160 (PARI) {a(n)=local(A=[1],F=x);for(i=1,n,A=concat(A,0);F=x*Ser(A);A[#A]=Vec(subst(F,x,x/(1-x)))[#A]/(#A-1));if(n<1,0,n!*A[n])}
%o A193160 (PARI) {a(n)=if(n<1,0,if(n==1,1,n!/(n-1)*sum(k=1,n-1,binomial(n-1,k-1)*a(k)/k!)))}
%Y A193160 Cf. A193161, A001063.
%K A193160 nonn
%O A193160 1,2
%A A193160 _Paul D. Hanna_, Jul 16 2011