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 A374450 #19 Feb 16 2025 08:34:07
%S A374450 59,1289,23123,376913,5875499,89719769,1357012163,20434006433,
%T A374450 307062808859,4609813953449,69174320548403,1037804612461553,
%U A374450 15568397893099019,233535269569297529,3503094152437895843,52546868050923710273,788206211120541289979,11823115499323514984009,177346888817516282750483
%N A374450 Number of edge covers of the fan graph F_{n,4}.
%C A374450 Label vertices of F_{n,4} with v1, ..., v_n, a, b, c, d with be adjacent to a and c and d adjacent to c. An edge cover is a subset of the edges so that each vertex is the endpoint of at least one edge. Each of the n vertices has 15 ways to connect to vertices a, b, c, d. Once we connect all v_i's, we then have 8 options for the edges ab, bc, and cd to exist or not, giving 8*15^n options. But not all of these will be an edge cover. For example, if all v_i's connect to only b and c, we have to add edges ab and cd in the second step. So, 12*7^n options are removed. However, we removed too many options here. This line of reasoning continues, following the Inclusion-Exclusion Principle, to obtain the remaining pieces of the formula for a(n).
%H A374450 Paolo Xausa, <a href="/A374450/b374450.txt">Table of n, a(n) for n = 1..800</a>
%H A374450 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/EdgeCover.html">Edge Cover</a>.
%H A374450 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/FanGraph.html">Fan Graph</a>.
%H A374450 <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (26,-196,486,-315).
%F A374450 a(n) = 8*15^n - 12*7^n + 9*3^n - 4.
%F A374450 From _Stefano Spezia_, Jul 08 2024: (Start)
%F A374450 G.f.: x*(59 - 245*x + 1173*x^2 - 315*x^3)/((1 - x)*(1 - 3*x)*(1 - 7*x)*(1 - 15*x)).
%F A374450 E.g.f.: 8*exp(15*x) - 12*exp(7*x) + 9*exp(3*x) - 4*exp(x) - 1. (End)
%t A374450 A374450[n_] := 8*15^n - 12*7^n + 9*3^n - 4; Array[A374450, 20] (* or *)
%t A374450 LinearRecurrence[{26, -196, 486, -315}, {59, 1289, 23123, 376913}, 20] (* _Paolo Xausa_, Jan 22 2025 *)
%o A374450 (Python)
%o A374450 def a_n(n):
%o A374450 return 8 * 15**n - 12*7^n + 9 * 3**n + 3
%Y A374450 Cf. A100774, A373293, A374096.
%K A374450 nonn,easy
%O A374450 1,1
%A A374450 _Marshall Nicholson_, Jul 08 2024