|
|
A063705
|
|
Cyclotomic polynomials Phi_n at x=phi, rounded to nearest integer (where phi = tau = (sqrt(5)+1)/2).
|
|
4
|
|
|
2, 1, 3, 5, 4, 16, 2, 45, 8, 23, 5, 320, 5, 841, 11, 26, 48, 5776, 15, 15125, 34, 167, 76, 103680, 41, 16626, 199, 5855, 233, 1860496, 56, 4870845, 2208, 7602, 1364, 45081, 305, 87403801, 3571, 51941, 1926, 599074576, 407, 1568397605, 10946, 80321
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MAPLE
|
with(numtheory); Phi_at_x := (n, y) -> subs(x=y, cyclotomic(n, x)); [seq(round(evalf(simplify(Phi_at_x(j, (sqrt(5)+1)/2)))), j=0..120)];
|
|
MATHEMATICA
|
Join[{2}, Round[Simplify[Cyclotomic[Range[50], GoldenRatio]]]] (* Paolo Xausa, Feb 27 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|