A174311 Value of the n-th cyclotomic polynomial at the discriminant of that polynomial.

0, 2, 7, 17, 246109501, 13, 22537999301860113141522943, 4294967297, 58149737003032434092905183, 242203001, 5313022609595033985218523349395070147785700752531778166637386100465086995951866123901089470951

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..28

Formula

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

Example

C_4(x) = x^2 + 1 has discriminant -4 so a(4) = C_4(-4) = 17. - Robert Israel, Jul 19 2016

Maple

seq(numtheory:-cyclotomic(n, discrim(numtheory:-cyclotomic(n, x), x)), n=1..20); # Robert Israel, Jul 19 2016

Mathematica

s = {}; Do[d = Discriminant[Cyclotomic[n, x], x]; AppendTo[s, Cyclotomic[n, d]], {n, 1, 20}]; s

Crossrefs

Cf. A004124.

Cf. A174304, A174305, A174306, A174307, A174308, A174309, A174310.

Sequence in context: A283957 A013062 A013092 * A220396 A217253 A268837

Adjacent sequences: A174308 A174309 A174310 * A174312 A174313 A174314

Keyword

nonn

Author

Artur Jasinski, Mar 15 2010

Extensions

Edited by Robert Israel, Jul 19 2016

Status

approved