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 A286910 #27 Feb 16 2025 08:33:45
%S A286910 3,1,5,10,21,46,98,211,453,973,2090,4489,9642,20710,44483,95545,
%T A286910 205221,440794,946781,2033590,4367946,9381907,20151389,43283149,
%U A286910 92967834,199685521,428904338,921243214,1978737411,4250128177,9128846213,19607839978,42115660581
%N A286910 Number of independent vertex sets and vertex covers in the n-antiprism graph.
%C A286910 Sequence extrapolated to n=0 using recurrence.
%H A286910 Andrew Howroyd, <a href="/A286910/b286910.txt">Table of n, a(n) for n = 0..500</a>
%H A286910 Haoliang Wang, Robert Simon, <a href="https://doi.org/10.1145/3267129.3267134">The Analysis of Synchronous All-to-All Communication Protocols for Wireless Systems</a>, Q2SWinet'18: Proceedings of the 14th ACM International Symposium on QoS and Security for Wireless and Mobile Networks (2018), 39-48.
%H A286910 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/AntiprismGraph.html">Antiprism Graph</a>
%H A286910 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/IndependentVertexSet.html">Independent Vertex Set</a>
%H A286910 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/VertexCover.html">Vertex Cover</a>
%H A286910 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (1,2,1).
%F A286910 a(n) = a(n-1) + 2*a(n-2) + a(n-3) for n>=3.
%F A286910 G.f.: (2*x^2 + 2*x - 3)/(x^3 + 2*x^2 + x - 1).
%F A286910 a(n) = n*Sum_{k=1..n} C(2*k,n-k)/k, a(0)=3. - _Vladimir Kruchinin_, Jun 13 2020
%t A286910 CoefficientList[Series[(- 2 x^2 - 2 x + 3) / (- x^3 - 2 x^2 - x + 1), {x, 0, 40}], x] (* _Vincenzo Librandi_, May 16 2017 *)
%t A286910 LinearRecurrence[{1, 2, 1}, {3, 1, 5}, 40] (* _Vincenzo Librandi_, May 16 2017 *)
%t A286910 Table[RootSum[-1 - 2 # - #^2 + #^3 &, #^n &], {n, 20}] (* _Eric W. Weisstein_, Aug 16 2017 *)
%t A286910 RootSum[-1 - 2 # - #^2 + #^3 &, #^Range[20] &] (* _Eric W. Weisstein_, Aug 16 2017 *)
%o A286910 (PARI)
%o A286910 Vec((-2*x^2 - 2*x + 3)/(-x^3 - 2*x^2 - x + 1)+O(x^30))
%o A286910 (Magma) I:=[3,1,5]; [n le 3 select I[n] else Self(n-1)+2*Self(n-2)+Self(n-3): n in [1..33]]; // _Vincenzo Librandi_, May 16 2017
%Y A286910 Cf. A051927, A182143, A192742, A284700.
%K A286910 nonn
%O A286910 0,1
%A A286910 _Andrew Howroyd_, May 15 2017