A063703 Cyclotomic polynomials Phi_n at x=phi, floored down (where phi = tau = (sqrt(5)+1)/2).

1, 0, 2, 5, 3, 16, 2, 45, 7, 23, 4, 320, 5, 841, 11, 25, 47, 5776, 14, 15125, 34, 166, 76, 103680, 41, 16626, 199, 5855, 233, 1860496, 56, 4870845, 2207, 7601, 1364, 45080, 305, 87403801, 3571, 51940, 1926, 599074576, 407, 1568397605, 10946, 80320

Offset: 0

Author

Antti Karttunen, Aug 03 2001

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 0..1000
• Index entries for cyclotomic polynomials, values at phi

Crossrefs

Cf. A019320, A063705, A063707, A063704.

Programs

Maple

with(numtheory); Phi_at_x := (n,y) -> subs(x=y,cyclotomic(n,x)); [seq(floor(evalf(simplify(Phi_at_x(j,(sqrt(5)+1)/2)))),j=0..120)];

Mathematica

Floor[Simplify[Cyclotomic[Range[0, 50],GoldenRatio]]] (* Paolo Xausa, Feb 27 2024 *)

Extensions

a(43) corrected by Sean A. Irvine, May 08 2023