A063707 Cyclotomic polynomials Phi_n at x=phi, ceiled up (where phi = tau = (sqrt(5)+1)/2).

2, 1, 3, 6, 4, 17, 2, 46, 8, 24, 5, 321, 6, 842, 12, 26, 48, 5777, 15, 15126, 35, 167, 77, 103681, 42, 16627, 200, 5856, 234, 1860497, 57, 4870846, 2208, 7602, 1365, 45081, 306, 87403802, 3572, 51941, 1927, 599074577, 408, 1568397606, 10947, 80321

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, A063703, A063705, A063708.

Programs

Maple

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

Mathematica

Join[{2}, Ceiling[Simplify[Cyclotomic[Range[50], GoldenRatio]]]] (* Paolo Xausa, Feb 27 2024 *)