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 A048800 #22 Jul 02 2025 11:34:33
%S A048800 1,1,2,12,120,1800,37440,1023120,35360640,1502323200,76738233600,
%T A048800 4629350880000,325036115712000,26238156161817600,2409994778846054400,
%U A048800 249634150247978496000,28935351060849192960000,3727654806346921562112000,530531863561703729037312000
%N A048800 E.g.f. satisfies A(x) = 1 + x * A(x / (1 - x)).
%F A048800 a(n) = n!*A000110(n-1), n>0. - _Michael Somos_, Jun 14 1999
%t A048800 m = 17; A[_] = 0;
%t A048800 Do[A[x_] = 1 + x A[x/(1 - x)] + O[x]^m // Normal, {m}];
%t A048800 CoefficientList[A[x], x]*Range[0, m - 1]! (* _Jean-François Alcover_, Oct 02 2019 *)
%o A048800 (PARI) Vec( serlaplace( 1 + x * serlaplace( exp(exp(x) - 1)))) /* _Michael Somos_, Jun 14 1999 */
%o A048800 (Sage) [factorial(m) * bell_number(m - 1) for m in range(17)] # _Zerinvary Lajos_, Jul 06 2008
%Y A048800 Cf. A000110.
%K A048800 nonn,eigen
%O A048800 0,3
%A A048800 _Christian G. Bower_, Mar 15 1999
%E A048800 Description corrected by _Michael Somos_