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