%I #18 Mar 03 2023 09:36:03
%S 0,2,7,17,246109501,13,22537999301860113141522943,4294967297,
%T 58149737003032434092905183,242203001,
%U 5313022609595033985218523349395070147785700752531778166637386100465086995951866123901089470951
%N Value of the n-th cyclotomic polynomial at the discriminant of that polynomial.
%H Robert Israel, <a href="/A174311/b174311.txt">Table of n, a(n) for n = 1..28</a>
%F a(n) = C_n(A004124(n)) where A004124(n) is the discriminant of C_n(x) and C_n is the n-th cyclotomic polynomial. - _Robert Israel_, Jul 19 2016
%e C_4(x) = x^2 + 1 has discriminant -4 so a(4) = C_4(-4) = 17. - _Robert Israel_, Jul 19 2016
%p seq(numtheory:-cyclotomic(n, discrim(numtheory:-cyclotomic(n,x),x)), n=1..20); # _Robert Israel_, Jul 19 2016
%t s = {}; Do[d = Discriminant[Cyclotomic[n, x], x]; AppendTo[s, Cyclotomic[n, d]], {n, 1, 20}]; s
%Y Cf. A004124.
%Y Cf. A174304, A174305, A174306, A174307, A174308, A174309, A174310.
%K nonn
%O 1,2
%A _Artur Jasinski_, Mar 15 2010
%E Edited by _Robert Israel_, Jul 19 2016