|
%I #29 Sep 08 2022 08:45:11
%S 1,3,7,17,43,113,307,857,2443,7073,20707,61097,181243,539633,1610707,
%T 4815737,14414443,43177793,129402307,387944777,1163310043,3488881553,
%U 10464547507,31389448217,94159956043,282463090913,847355718307
%N Expansion of (1 - 2*x - 2*x^2)/((1 - 2*x)*(1 - 3*x)).
%C Binomial transform of A001045(n)+1.
%C For n > 1, also the number of independent vertex sets in the (n-1)-book graph. - _Eric W. Weisstein_, Aug 16 2017
%H Vincenzo Librandi, <a href="/A085279/b085279.txt">Table of n, a(n) for n = 0..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BookGraph.html">Book Graph</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/IndependentVertexSet.html">Independent Vertex Set</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (5,-6).
%F a(n) = (3*2^n + 3^n - 0^n)/3.
%F a(n) = 2^n + 3^(n-1) for n >= 1.
%F G.f.: (1 - 2*x - 2*x*x)/((1 - 2*x)*(1 - 3*x)).
%F a(n) = 5*a(n-1) - 6*a(n-2) for n > 1. - _Vincenzo Librandi_, Sep 12 2014
%F E.g.f.: (1/3)*(exp(3*x) + 3*exp(2*x) -1). - _G. C. Greubel_, Aug 17 2017
%p seq(2^n + (3^n - charfcn[0](n))/3, n=0..100); # _Robert Israel_, Sep 12 2014
%t CoefficientList[Series[(1 - 2 x - 2 x^2)/((1 - 2 x) (1 - 3 x)), {x, 0, 30}], x] (* _Vincenzo Librandi_, Sep 12 2014 *)
%t Join[{1}, LinearRecurrence[{5, -6}, {3, 7}, 20]] (* _Eric W. Weisstein_, Aug 16 2017 *)
%t Join[{1}, Table[2^n + 3^(n - 1), {n, 20}]] (* _Eric W. Weisstein_, Aug 16 2017 *)
%o (Magma) [1] cat [2^n+3^(n-1): n in [1..30]]; // _Vincenzo Librandi_, Sep 12 2014
%o (PARI) Vec((1-2*x-2*x*x)/((1-2*x)*(1-3*x)) + O(x^50)) \\ _Michel Marcus_, Sep 12 2014
%Y Cf. A001045.
%K easy,nonn
%O 0,2
%A _Paul Barry_, Jun 25 2003
|
