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 A152094 #17 Sep 08 2022 08:45:39
%S A152094 1,1,1,11,37,179,869,3683,18389,80179,385029,1739651,8134709,37397203,
%T A152094 173097317,799986979,3694294933,17085418099,78904394437,364797113027,
%U A152094 1685324681973,7789441113619,35993781049381,166339303316579
%N A152094 Quartic product sequence: a(n) = Product_{k=1..floor((n-1)/2)} (1 + m*cos(k*Pi/n)^2 + q*cos(k*Pi/n)^4 ), with m = 2*4, q=2*4^3.
%C A152094 Limiting ratio at n=30: 4.621205928975311.
%C A152094 Exact value of this limit is (1 + sqrt(137) + sqrt(2*(5 + sqrt(137))))/4 = 4.621196599954103646539033792... - _Vaclav Kotesovec_, Nov 30 2012
%H A152094 Vincenzo Librandi, <a href="/A152094/b152094.txt">Table of n, a(n) for n = 0..300</a>
%F A152094 G.f.: 1 + x*(1-8*x^2)/(1-x-18*x^2-8*x^3+64*x^4). - _Vaclav Kotesovec_, Nov 30 2012
%t A152094 Table[Product[1 +8*Cos[k*Pi/n]^2 +128*Cos[k*Pi/n]^4, {k,1,(n-1)/2}], {n, 0, 30}]//Round (* modified by _G. C. Greubel_, May 08 2019 *)
%t A152094 CoefficientList[Series[1+x*(1-8*x^2)/(1-x-18*x^2-8*x^3+64*x^4), {x, 0, 23}], x] (* _Vaclav Kotesovec_, Nov 30 2012 *)
%o A152094 (PARI) my(x='x+O('x^30)); Vec(1 + x*(1-8*x^2)/(1-x-18*x^2-8*x^3+64*x^4)) \\ _G. C. Greubel_, May 08 2019
%o A152094 (Magma) R<x>:=PowerSeriesRing(Integers(), 30); Coefficients(R!( 1 + x*(1-8*x^2)/(1-x-18*x^2-8*x^3+64*x^4) )); // _G. C. Greubel_, May 08 2019
%o A152094 (Sage) (1 + x*(1-8*x^2)/(1-x-18*x^2-8*x^3+64*x^4)).series(x, 30).coefficients(x, sparse=False) # _G. C. Greubel_, May 08 2019
%K A152094 nonn,easy
%O A152094 0,4
%A A152094 _Roger L. Bagula_ and _Gary W. Adamson_, Nov 24 2008