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,3

Links

Paolo Xausa, Table of n, a(n) for n = 0..1000

Index entries for cyclotomic polynomials, values at phi

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 *)

Crossrefs

Cf. A019320, A063705, A063707, A063704.

Sequence in context: A181921 A282575 A002565 * A109619 A248576 A087228

Adjacent sequences: A063700 A063701 A063702 * A063704 A063705 A063706

Keyword

nonn

Author

Antti Karttunen, Aug 03 2001

Extensions

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

Status

approved