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 A007307 #48 Mar 19 2025 20:29:26
%S A007307 0,1,2,1,3,3,4,6,7,10,13,17,23,30,40,53,70,93,123,163,216,286,379,502,
%T A007307 665,881,1167,1546,2048,2713,3594,4761,6307,8355,11068,14662,19423,
%U A007307 25730,34085,45153,59815,79238,104968,139053,184206,244021,323259,428227
%N A007307 a(n) = a(n-2) + a(n-3), with a(0) = 0, a(1) = 1, a(2) = 2.
%C A007307 Also the number of maximal matchings in the (n-2)-pan graph. - _Eric W. Weisstein_, Dec 30 2017
%H A007307 Vincenzo Librandi, <a href="/A007307/b007307.txt">Table of n, a(n) for n = 0..1000</a>
%H A007307 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Matching.html">Matching</a>
%H A007307 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MaximalIndependentEdgeSet.html">Maximal Independent Edge Set</a>
%H A007307 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PanGraph.html">Pan Graph</a>
%H A007307 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (0,1,1).
%F A007307 From _Wolfdieter Lang_, Jun 15 2010: (Start)
%F A007307 a(n) = p(n-1) + 2*p(n-2) = p(n+1) + p(n-2), with p(n):=A000931(n+3).
%F A007307 O.g.f: x*(1+2*x)/(1-x^2-x^3). (End)
%F A007307 a(n) = (A000931(n+1) + A001608(n+1))/2. - _Elmo R. Oliveira_, Dec 31 2022
%p A007307 G(x):=(-1-x^3)/(-1+x^2+x^3): f[0]:=G(x): for n from 1 to 58 do f[n]:=diff(f[n-1],x) od: x:=0: seq(f[n]/n!,n=1..43); # _Zerinvary Lajos_, Mar 27 2009
%p A007307 # second Maple program:
%p A007307 a:= n-> (<<0|1|0>, <0|0|1>, <1|1|0>>^n.<<($0..2)>>)[1$2]:
%p A007307 seq(a(n), n=0..60); # _Alois P. Heinz_, Nov 06 2016
%t A007307 Table[- RootSum[-1 - # + #^3 &, -16 #^n - 13 #^(n + 1) + #^(n + 2) &]/23, {n, 20}] (* _Eric W. Weisstein_, Dec 30 2017 *)
%t A007307 LinearRecurrence[{0, 1, 1}, {1, 3, 3}, 20] (* _Eric W. Weisstein_, Dec 30 2017 *)
%t A007307 CoefficientList[Series[x (-1 - 3 x - 2 x^2)/(-1 + x^2 + x^3), {x, 0, 20}], x] (* _Eric W. Weisstein_, Dec 30 2017 *)
%o A007307 (Magma) I:=[0,1,2]; [n le 3 select I[n] else Self(n-2)+Self(n-3): n in [1..50]]; // _Vincenzo Librandi_, Jun 09 2013
%Y A007307 Cf. A000931, A001608.
%K A007307 nonn,easy
%O A007307 0,3
%A A007307 _N. J. A. Sloane_