OFFSET
0,3
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(ceil(evalf(simplify(Phi_at_x(j, (sqrt(5)+1)/2))/(sqrt(5)))), j=0..120)];
MATHEMATICA
Ceiling[Simplify[Cyclotomic[Range[0, 50], GoldenRatio]]/Sqrt[5]] (* Paolo Xausa, Feb 27 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 03 2001
STATUS
approved