%I #29 Feb 28 2023 11:36:21
%S 1,26,129,444,1285,3366,8281,19544,44829,100770,223201,488916,1061749,
%T 2289854,4910505,10480176,22275661,47178234,99605809,209704940,
%U 440390181,922733526,1929364729,4026514824,8388588925,17448283346,36238762881,75161901444,155692535509,322122515310
%N Number of (undirected) paths in the prism graph Y_n.
%C Extended to a(1)-a(2) using the formula.
%H Colin Barker, <a href="/A287992/b287992.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GraphPath.html">Graph Path</a>.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrismGraph.html">Prism Graph</a>.
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (8,-26,44,-41,20,-4).
%F a(n) = (5*2^(n + 1) - 5*n - n^2 - 13)*n.
%F From _Colin Barker_, Jun 04 2017: (Start)
%F G.f.: x*(1 + 18*x - 53*x^2 + 44*x^3 - 16*x^4) / ((1 - x)^4*(1 - 2*x)^2).
%F a(n) = 8*a(n-1) - 26*a(n-2) + 44*a(n-3) - 41*a(n-4) + 20*a(n-5) - 4*a(n-6) for n>6. (End)
%t Table[(5 2^(n + 1) - 5 n - n^2 - 13) n, {n, 20}]
%t LinearRecurrence[{8, -26, 44, -41, 20, -4}, {1, 26, 129, 444, 1285, 3366}, 20]
%t CoefficientList[Series[(1 + 18 x - 53 x^2 + 44 x^3 - 16 x^4)/((1 - x)^4 (1 - 2 x)^2), {x, 0, 20}], x]
%o (PARI) Vec(x*(1 + 18*x - 53*x^2 + 44*x^3 - 16*x^4) / ((1 - x)^4*(1 - 2*x)^2) + O(x^30)) \\ _Colin Barker_, Jun 04 2017
%Y Cf. A077265, A124350, A124349, A287988, A020874, A288516.
%K nonn,easy
%O 1,2
%A _Eric W. Weisstein_, Jun 04 2017