|
%I #10 Apr 20 2018 10:04:17
%S 1,1,3,2,4,8,6,6,13,18,20,28,37,45,65,91,111,144,200,264,346,464,609,
%T 798,1072,1428,1873,2479,3297,4361,5779,7670,10140,13416,17806,23598,
%U 31229,41374,54820,72600,96197,127465,168801,223587,296255,392460,519856
%N Number of minimal total dominating sets in the n-pan graph.
%C Sequence extrapolated to n=1 using recurrence. - _Andrew Howroyd_, Apr 19 2018
%H Andrew Howroyd, <a href="/A303148/b303148.txt">Table of n, a(n) for n = 1..200</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PanGraph.html">Pan Graph</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/TotalDominatingSet.html">Total Dominating Set</a>
%H <a href="/index/Rec#order_09">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,1,1,1,1,0,-1,-1).
%F From _Andrew Howroyd_, Apr 19 2018: (Start)
%F a(n) = a(n-3) + a(n-4) + a(n-5) + a(n-6) - a(n-8) - a(n-9) for n > 9.
%F G.f.: x*(1 + x + 3*x^2 + x^3 + 2*x^4 + 3*x^5 - x^6 - 4*x^7 - 3*x^8)/((1 - x^2 - x^3)*(1 + x^2 - x^6)). (End)
%t LinearRecurrence[{0, 0, 1, 1, 1, 1, 0, -1, -1}, {1, 1, 3, 2, 4, 8, 6, 6, 13}, 20]
%t CoefficientList[Series[(1 + x + 3 x^2 + x^3 + 2 x^4 + 3 x^5 - x^6 - 4 x^7 - 3 x^8)/(1 - x^3 - x^4 - x^5 - x^6 + x^8 + x^9), {x, 0, 20}], x]
%o (PARI) Vec((1 + x + 3*x^2 + x^3 + 2*x^4 + 3*x^5 - x^6 - 4*x^7 - 3*x^8)/((1 - x^2 - x^3)*(1 + x^2 - x^6)) + O(x^40)) \\ _Andrew Howroyd_, Apr 19 2018
%Y Cf. A290273, A302506, A303005.
%K nonn,easy
%O 1,3
%A _Eric W. Weisstein_, Apr 19 2018
%E a(1)-a(2) and terms a(20) and beyond from _Andrew Howroyd_, Apr 19 2018
|
