cp's OEIS Frontend

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.

A094730 Number of connected ordered 3-element multiantichains on a labeled n-set.

This page as a plain text file.
%I A094730 #10 Oct 08 2017 18:50:09
%S A094730 0,1,1,25,337,4321,46681,437305,3721537,29740561,228000361,1699890985,
%T A094730 12435686737,89792976001,642488104441,4567920215065,32331017955937,
%U A094730 228106608326641,1605738151030921,11285298643841545,79223419486529137
%N A094730 Number of connected ordered 3-element multiantichains on a labeled n-set.
%H A094730 G. C. Greubel, <a href="/A094730/b094730.txt">Table of n, a(n) for n = 0..1000</a>
%F A094730 E.g.f.: exp(7*x) - 6*exp(5*x) + 3*exp(4*x) + 17*exp(3*x) - 30*exp(2*x) + 21*exp(x) - 6.
%F A094730 Empirical g.f.: -x*(5040*x^5 - 2686*x^4 + 843*x^3 - 193*x^2 + 21*x - 1) / ((x-1)*(2*x-1)*(3*x-1)*(4*x-1)*(5*x-1)*(7*x-1)). - _Colin Barker_, Jul 07 2013
%t A094730 With[{nmax = 50}, CoefficientList[Series[Exp[7*x] - 6*Exp[5*x] + 3*Exp[4*x] + 17*Exp[3*x] - 30*Exp[2*x] + 21*Exp[x] - 6, {x, 0, nmax}], x] Range[0, nmax]!] (* _G. C. Greubel_, Oct 08 2017 *)
%o A094730 (PARI) x='x+O('x^50); concat([0], Vec(serlaplace(exp(7*x) - 6*exp(5*x) + 3*exp(4*x) + 17*exp(3*x) - 30*exp(2*x) + 21*exp(x) - 6))) \\ _G. C. Greubel_, Oct 08 2017
%Y A094730 Cf. A094033-A094037, A094729-A094738.
%K A094730 nonn
%O A094730 0,4
%A A094730 Goran Kilibarda, _Vladeta Jovovic_, May 24 2004