%I #20 Sep 08 2022 08:46:15
%S 1,1,2731,398581,13421773,203450521,1865813431,12111126301,
%T 61083979321,254186582833,909090909091,2876892678661,8230246567621,
%U 21633936185161,52914318216943,121637191772461,264917625139441,550254335161441
%N a(n) = Sum_{j=0..12} (-n)^j.
%C a(n) = Phi_26(n) where Phi_k(x) is the k-th cyclotomic polynomial.
%H G. C. Greubel, <a href="/A266229/b266229.txt">Table of n, a(n) for n = 0..1000</a>
%H OEIS Wiki, <a href="https://oeis.org/wiki/Cyclotomic Polynomials at x=n, n! and sigma(n)">Cyclotomic Polynomials at x=n, n! and sigma(n)</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CyclotomicPolynomial.html">Cyclotomic Polynomial</a>
%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtX">Index to values of cyclotomic polynomials of integer argument</a>
%H <a href="/index/Rec#order_13">Index entries for linear recurrences with constant coefficients</a>, signature (13, -78, 286, -715, 1287, -1716, 1716, -1287, 715, -286, 78, -13, 1).
%F G.f.: (1 - 12*x + 2796*x^2 + 362870*x^3 + 8453667*x^4 + 59275152*x^5 + 155813880*x^6 + 167535876*x^7 + 74215935*x^8 + 12641708*x^9 + 691692*x^10 + 8022*x^11 + 13*x^12)/(1 - x)^13.
%F Sum_{n>=0} 1/a(n) = 2.0003687552...
%t Table[n^12-n^11+n^10-n^9+n^8-n^7+n^6-n^5+n^4-n^3+n^2-n+1, {n, 0, 17}]
%t Table[Cyclotomic[26, n], {n, 0, 17}]
%o (PARI) a(n) = polcyclo(26, n); \\ _Michel Marcus_, Mar 13 2016
%o (Magma) [(&+[(-n)^j: j in [0..12]]): n in [0..20]]; // _G. C. Greubel_, Apr 24 2019
%o (Sage) [sum((-n)^j for j in (0..12)) for n in (0..20)] # _G. C. Greubel_, Apr 24 2019
%o (GAP) List([0..20], n-> Sum([0..12], j-> (-n)^j)) # _G. C. Greubel_, Apr 24 2019
%Y Cf. similar sequences of the type Phi_k(n) listed in A269442.
%K nonn,easy
%O 0,3
%A _Ilya Gutkovskiy_, Mar 13 2016
%E Name changed by _G. C. Greubel_, Apr 24 2019