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 A091054 #28 Feb 16 2025 08:32:52
%S A091054 1,0,6,18,138,762,4698,27930,168090,1007514,6047130,36278682,
%T A091054 217680282,1306065306,7836424602,47018482074,282111023514,
%U A091054 1692665878938,10155995797914,60935973738906,365615844530586,2193695062989210
%N A091054 Expansion of (1 - 5*x - 2*x^2) / ((1 - x)*(1 + 2*x)*(1 - 6*x)).
%C A091054 Closed walks of length n at a vertex of the Johnson graph J(5,2).
%C A091054 6^n = a(n) + 6*A091055(n) + 3*4*A091056(n).
%H A091054 Colin Barker, <a href="/A091054/b091054.txt">Table of n, a(n) for n = 0..1000</a>
%H A091054 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/JohnsonGraph.html">Johnson Graph</a>
%H A091054 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (5,8,-12).
%F A091054 a(n) = (6^n + 5*(-2)^n + 4)/10.
%F A091054 a(n) = 5*a(n-1) + 8*a(n-2) - 12*a(n-3) for n>2. - _Colin Barker_, Dec 26 2019
%F A091054 E.g.f.: (exp(6*x) + 5*exp(-2*x) + 4*exp(x))/10. - _G. C. Greubel_, Dec 27 2019
%p A091054 seq( (6^n +5*(-2)^n +4)/10, n=0..30); # _G. C. Greubel_, Dec 27 2019
%t A091054 Table[(6^n +5*(-2)^n +4)/10, {n,0,30}] (* _G. C. Greubel_, Dec 27 2019 *)
%t A091054 LinearRecurrence[{5,8,-12},{1,0,6},30] (* _Harvey P. Dale_, Oct 21 2021 *)
%o A091054 (PARI) Vec((1 - 5*x - 2*x^2) / ((1 - x)*(1 + 2*x)*(1 - 6*x)) + O(x^25)) \\ _Colin Barker_, Dec 26 2019
%o A091054 (PARI) vector(31, n, (6^(n-1) +5*(-2)^(n-1) +4)/10) \\ _G. C. Greubel_, Dec 27 2019
%o A091054 (Magma) [(6^n +5*(-2)^n +4)/10: n in [0..30]]; // _G. C. Greubel_, Dec 27 2019
%o A091054 (Magma) R<x>:=PowerSeriesRing(Integers(), 25); Coefficients(R!( (1 - 5*x - 2*x^2) / ((1 - x)*(1 + 2*x)*(1 - 6*x)))); // _Marius A. Burtea_, Dec 29 2019
%o A091054 (Sage) [(6^n +5*(-2)^n +4)/10 for n in (0..30)] # _G. C. Greubel_, Dec 27 2019
%o A091054 (GAP) List([0..30], n-> (6^n +5*(-2)^n +4)/10); # _G. C. Greubel_, Dec 27 2019
%Y A091054 Cf. A091055, A091056.
%K A091054 easy,nonn
%O A091054 0,3
%A A091054 _Paul Barry_, Dec 17 2003