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 A122068 #46 Jan 29 2023 06:02:53
%S A122068 1,3,10,35,126,462,1715,6419,24157,91238,345401,1309574,4970070,
%T A122068 18874261,71705865,272491891,1035680954,3936821259,14965658694,
%U A122068 56893879910,216295686467,822315097387,3126323230541,11885921055638
%N A122068 Expansion of x*(1-3*x)*(1-x)/(1-7*x+14*x^2-7*x^3).
%H A122068 G. C. Greubel, <a href="/A122068/b122068.txt">Table of n, a(n) for n = 1..1000</a>
%H A122068 Peter Steinbach, <a href="http://www.jstor.org/stable/2691048">Golden fields: a case for the heptagon</a>, Math. Mag. Vol. 70, No. 1, Feb. 1997, 22-31.
%H A122068 R. Witula, P. Lorenc, M. Rozanski, and M. Szweda, <a href="https://bibliotekanauki.pl/articles/87290">Sums of the rational powers of roots of cubic polynomials</a>, Zeszyty Naukowe Politechniki Slaskiej, Seria: Matematyka Stosowana z. 4, Nr. kol. 1920, 2014.
%H A122068 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (7,-14,7).
%F A122068 From _Roman Witula_, May 16 2014: (Start)
%F A122068 a(n) = (1/2)*Sum_{k=0..2}(1 - 1/sqrt(7)*cot(2^k * alpha))* (2*sin(2^k * alpha))^(2n), where alpha := 2*Pi/7.
%F A122068 a(n) = (A215007(n) + A215008(n+1) - 2*A215008(n))/2. (End)
%F A122068 a(n) = binomial(2*n-1, n-1) + Sum_{k=1..n} (-1)^k*binomial(2*n, n+7*k). - _Greg Dresden_, Jan 28 2023
%p A122068 seq(coeff(series(x*(1-3*x)*(1-x)/(1-7*x+14*x^2-7*x^3), x, n+1), x, n), n =1..30); # _G. C. Greubel_, Oct 03 2019
%t A122068 M = {{2,1,0,0,0,0}, {1,2,1,0,0,0}, {0,1,2,1,0,0}, {0,0,1,2,1,0}, {0,0,0, 1,2,1}, {0,0,0,0,1,2}}; v[1] = {1,1,1,1,1,1}; v[n_]:= v[n] = M.v[n-1]; Table[v[n][[1]], {n,30}]
%t A122068 Rest@CoefficientList[Series[x*(1-3*x)*(1-x)/(1-7*x+14*x^2-7*x^3), {x, 0, 30}], x] (* _G. C. Greubel_, Oct 03 2019 *)
%t A122068 LinearRecurrence[{7,-14,7},{1,3,10},30] (* _Harvey P. Dale_, Mar 08 2020 *)
%o A122068 (PARI) Vec(x*(1-3*x)*(1-x)/(1-7*x+14*x^2-7*x^3)+O(x^30)) \\ _Charles R Greathouse IV_, Sep 27 2012
%o A122068 (Magma) I:=[1,3,10]; [n le 3 select I[n] else 7*(Self(n-1) -2*Self(n-2) + Self(n-3)): n in [1..30]]; // _G. C. Greubel_, Oct 03 2019
%o A122068 (Sage)
%o A122068 def A122068_list(prec):
%o A122068 P.<x> = PowerSeriesRing(ZZ, prec)
%o A122068 return P(x*(1-3*x)*(1-x)/(1-7*x+14*x^2-7*x^3)).list()
%o A122068 a=A122068_list(30); a[1:] # _G. C. Greubel_, Oct 03 2019
%o A122068 (GAP) a:=[1,3,10];; for n in [4..30] do a[n]:=7*(a[n-1]-2*a[n-2]+a[n-3]); od; a; # _G. C. Greubel_, Oct 03 2019
%Y A122068 Cf. A087946, A081567.
%Y A122068 Cf. A215007, A215008. - _Roman Witula_, May 16 2014
%K A122068 nonn,easy
%O A122068 1,2
%A A122068 _Gary W. Adamson_, Oct 15 2006