OFFSET
0,4
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..1000
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))/(sqrt(5)))), j=0..120)];
MATHEMATICA
Floor[Simplify[Cyclotomic[Range[0, 50], GoldenRatio]]/Sqrt[5]] (* Paolo Xausa, Feb 27 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 03 2001
EXTENSIONS
a(47) corrected by Sean A. Irvine, May 08 2023
STATUS
approved