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 A320566 #15 Sep 28 2019 18:04:46
%S A320566 1,2,6,23,110,617,4035,29927,249926,2316317,23674841,264329177,
%T A320566 3207278255,42011308653,591460307157,8905905152798,142897741683846,
%U A320566 2433947385964373,43873382718719949,834402502632550589,16699964488044322205,350869837371828862607,7721899536993122262447
%N A320566 Expansion of e.g.f. exp(x) * Product_{k>=1} 1/(1 - x^k/k!).
%C A320566 Binomial transform of A005651.
%H A320566 Vaclav Kotesovec, <a href="/A320566/b320566.txt">Table of n, a(n) for n = 0..440</a>
%H A320566 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F A320566 E.g.f.: exp(x + Sum_{k>=1} Sum_{j>=1} x^(j*k)/(k*(j!)^k)).
%F A320566 a(n) = Sum_{k=0..n} binomial(n,k)*A005651(k).
%F A320566 a(n) ~ exp(1) * A247551 * n!. - _Vaclav Kotesovec_, Jul 21 2019
%p A320566 seq(coeff(series(factorial(n)*exp(x)*mul((1-x^k/factorial(k))^(-1),k=1..n),x,n+1), x, n), n = 0 .. 22); # _Muniru A Asiru_, Oct 15 2018
%t A320566 nmax = 22; CoefficientList[Series[Exp[x] Product[1/(1 - x^k/k!), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
%t A320566 nmax = 22; CoefficientList[Series[Exp[x + Sum[Sum[x^(j k)/(k (j!)^k), {j, 1, nmax}], {k, 1, nmax}]], {x, 0, nmax}], x] Range[0, nmax]!
%t A320566 Table[Sum[Binomial[n, k] Total[Apply[Multinomial, IntegerPartitions[k], {1}]], {k, 0, n}], {n, 0, 22}]
%Y A320566 Cf. A005651, A320567, A327870.
%Y A320566 Row sums of A327801.
%K A320566 nonn
%O A320566 0,2
%A A320566 _Ilya Gutkovskiy_, Oct 15 2018