%I #19 Sep 08 2022 08:46:15
%S 1,19,524287,581130733,91625968981,4768371582031,121871948002099,
%T 1899815864228857,20587884010836553,168856464709124011,
%U 1111111111111111111,6115909044841454629,29043636306420266077,121826690864620509223,459715689149916492091,1583455585752214704241
%N a(n) = n*(n^6 + n^3 + 1)*(n^6 - n^3 + 1)*(n^2 + n + 1)*(n^2 - n + 1)*(n + 1) + 1.
%C a(n) = Phi_19(n) where Phi_k(x) is the k-th cyclotomic polynomial.
%H G. C. Greubel, <a href="/A269446/b269446.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_19">Index entries for linear recurrences with constant coefficients</a>, signature (19, -171, 969, -3876, 11628, -27132, 50388, -75582, 92378, -92378, 75582, -50388, 27132, -11628, 3876, -969, 171, -19, 1).
%F Sum_{n>=0} 1/a(n) = 1.0526334880315548541801483535546024...
%t Table[Cyclotomic[19, n], {n, 0, 15}]
%o (PARI) a(n)=n*(n^6+n^3+1)*(n^6-n^3+1)*(n^2+n+1)*(n^2-n+1)*(n+1)+1 \\ _Charles R Greathouse IV_, Jul 26 2016
%o (Magma) [n*(n^6+n^3+1)*(n^6-n^3+1)*(n^2+n+1)*(n^2-n+1)*(n+1)+1: n in [0..20]]; // _G. C. Greubel_, Apr 24 2019
%o (Sage) [n*(n^6+n^3+1)*(n^6-n^3+1)*(n^2+n+1)*(n^2-n+1)*(n+1)+1 for n in (0..20)] # _G. C. Greubel_, Apr 24 2019
%o (GAP) List([0..20], n-> n*(n^6+n^3+1)*(n^6-n^3+1)*(n^2+n+1)*(n^2-n+1)*(n+1)+1) # _G. C. Greubel_, Apr 24 2019
%Y Cf. similar sequences of the type Phi_k(n) listed in A269442.
%K nonn,easy
%O 0,2
%A _Ilya Gutkovskiy_, Feb 27 2016