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.

A284703 Number of maximal matchings in the n-prism graph.

This page as a plain text file.
%I A284703 #23 Feb 16 2025 08:33:43
%S A284703 1,5,10,17,51,98,211,457,964,2095,4489,9638,20723,44469,95550,205225,
%T A284703 440777,946808,2033571,4367947,9381928,20151345,43283195,92967814,
%U A284703 199685501,428904403,921243124,1978737477,4250128177,9128846128,19607840133,42115660425
%N A284703 Number of maximal matchings in the n-prism graph.
%C A284703 Sequence extrapolated to n=1 using recurrence. - _Andrew Howroyd_, May 16 2017
%H A284703 Andrew Howroyd, <a href="/A284703/b284703.txt">Table of n, a(n) for n = 1..200</a>
%H A284703 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Matching.html">Matching</a>
%H A284703 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MaximalIndependentEdgeSet.html">Maximal Independent Edge Set</a>
%H A284703 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrismGraph.html">Prism Graph</a>
%H A284703 <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (1,2, 1,-1,2,1,-1,-1).
%F A284703 From _Andrew Howroyd_, May 16 2017 (Start)
%F A284703 a(n) = a(n-1)+2*a(n-2)+a(n-3)-a(n-4)+2*a(n-5)+a(n-6)-a(n-7)-a(n-8) for n>8.
%F A284703 G.f.: x*(-8*x^7-7*x^6+6*x^5+10*x^4 -4*x^3+3*x^2+4*x+1)/((x^2-x+1)*(x^3-x-1)*(x^3+2*x^2+x-1)).
%F A284703 (End)
%t A284703 LinearRecurrence[{1, 2, 1, -1, 2, 1, -1, -1}, {1, 5, 10, 17, 51, 98, 211, 457}, 40] (* _Vincenzo Librandi_, May 17 2017 *)
%t A284703 CoefficientList[Series[(-8 x^7 - 7 x^6 + 6 x^5 + 10 x^4 - 4 x^3 + 3 x^2 + 4 x + 1) / ((x^2 - x + 1) (x^3 - x - 1) (x^3 + 2 x^2 + x - 1)), {x, 0, 33}], x] (* _Vincenzo Librandi_, May 17 2017 *)
%t A284703 Table[2 Cos[n Pi/3] + RootSum[-1 - 2 # - #^2 + #^3 &, #^n &] +
%t A284703   RootSum[-1 + #^2 + #^3 &, #^n &], {n, 20}] (* _Eric W. Weisstein_, May 17 2017 *)
%o A284703 (PARI)
%o A284703 Vec((-8*x^7-7*x^6+6*x^5+10*x^4-4*x^3+3*x^2+4*x+1)/((x^2-x+1)*(x^3-x-1)*(x^3+2*x^2+x-1))+O(x^20)) \\ _Andrew Howroyd_, May 16 2017
%o A284703 (Magma) I:=[1,5,10,17,51,98,211,457]; [n le 8 select I[n] else Self(n-1)+2*Self(n-2)+Self(n-3)-Self(n-4)+2*Self(n-5)+Self(n-6)-Self(n-7)-Self(n-8): n in [1..40]]; // _Vincenzo Librandi_, May 17 2017
%Y A284703 Cf. A284701, A286945, A284710, A102080, A068397, A123304.
%K A284703 nonn
%O A284703 1,2
%A A284703 _Eric W. Weisstein_, Apr 01 2017
%E A284703 a(1)-a(2) and a(20)-a(32) from _Andrew Howroyd_, May 16 2017