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.

A290325 Number of minimal dominating sets (and maximal irredundant sets) in the complete tripartite graph K_{n,n,n}.

This page as a plain text file.
%I A290325 #23 Feb 16 2025 08:33:49
%S A290325 3,15,30,51,78,111,150,195,246,303,366,435,510,591,678,771,870,975,
%T A290325 1086,1203,1326,1455,1590,1731,1878,2031,2190,2355,2526,2703,2886,
%U A290325 3075,3270,3471,3678,3891,4110,4335,4566,4803,5046,5295,5550,5811,6078
%N A290325 Number of minimal dominating sets (and maximal irredundant sets) in the complete tripartite graph K_{n,n,n}.
%C A290325 When n>1 the minimal dominating sets consist of either a single vertex from any two of the partitions or all vertices from just one of the partitions. When n=1 only the later are minimal. - _Andrew Howroyd_, Jul 27 2017
%H A290325 Colin Barker, <a href="/A290325/b290325.txt">Table of n, a(n) for n = 1..1000</a>
%H A290325 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CompleteTripartiteGraph.html">Complete Tripartite Graph</a>
%H A290325 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MaximalIrredundantSet.html">Maximal Irredundant Set</a>
%H A290325 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MinimalDominatingSet.html">Minimal Dominating Set</a>
%H A290325 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (3,-3,1).
%F A290325 a(n) = 3*n^2 + 3 for n > 1. - _Andrew Howroyd_, Jul 27 2017
%F A290325 From _Colin Barker_, Jul 27 2017: (Start)
%F A290325 G.f.: 3*x*(1 + 2*x - 2*x^2 + x^3) / (1 - x)^3.
%F A290325 a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 4. (End)
%F A290325 E.g.f.: 3((x^2 + x + 1)*exp(x) - (2*x + 1)) + 3*x. - _G. C. Greubel_, Aug 17 2017
%t A290325 Rest[With[{nn = 50}, CoefficientList[Series[3 ((x^2 + x + 1)*Exp[x] - (2*x + 1)) + 3*x, {x, 0, nn}], x]*Range[0, nn]!]] (* or *) Table[3*(n^2 +1), {n,1,50}] (* _G. C. Greubel_, Aug 17 2017 *)
%o A290325 (PARI) Vec(3*x*(1 + 2*x - 2*x^2 + x^3) / (1 - x)^3 + O(x^60)) \\ _Colin Barker_, Jul 27 2017
%K A290325 nonn,easy
%O A290325 1,1
%A A290325 _Eric W. Weisstein_, Jul 27 2017
%E A290325 a(6)-a(45) from _Andrew Howroyd_, Jul 27 2017
%E A290325 Maximal irredundant sets added to name by _Eric W. Weisstein_, Aug 17 2017