A372976 - OEIS

%I #34 Jun 20 2024 14:46:52

%S 27,64,75,132,147,224,243,340,363,480,507,644,675,832,867,1044,1083,

%T 1280,1323,1540,1587,1824,1875,2132,2187,2464,2523,2820,2883,3200,

%U 3267,3604,3675,4032,4107,4484,4563,4960,5043,5460,5547,5984,6075,6532,6627,7104

%N Number of minimum edge covers in the n-double cone graph.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DoubleConeGraph.html">Double Cone Graph</a>.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MinimumEdgeCover.html">Minimum Edge Cover</a>.

%F a(n) = 3*n^2 + 4*n if (n mod 2 = 0), otherwise 3*n^2. - _Detlef Meya_, Jun 20 2024

%t a[n_] := If[Mod[n, 2] == 0, 3*n^2 + 4*n, 3*n^2]; Table[a[n], {n, 3, 44}] (* _Detlef Meya_, Jun 20 2024 *)

%K nonn

%O 3,1

%A _Eric W. Weisstein_, May 26 2024

%E a(10) and beyond from _Detlef Meya_, Jun 20 2024