%I #10 Feb 27 2024 07:28:30
%S 1,1,2,3,2,8,1,21,4,11,3,144,3,377,6,12,22,2584,7,6765,16,75,35,46368,
%T 19,7436,90,2619,105,832040,26,2178309,988,3400,611,20161,137,
%U 39088169,1598,23229,862,267914296,183,701408733,4896,35921,10947,4807526976
%N Cyclotomic polynomials Phi_n at x=phi divided by sqrt(5) and ceiled up (where phi = tau = (sqrt(5)+1)/2).
%H Paolo Xausa, <a href="/A063708/b063708.txt">Table of n, a(n) for n = 0..1000</a>
%p 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)];
%t Ceiling[Simplify[Cyclotomic[Range[0, 50], GoldenRatio]]/Sqrt[5]] (* _Paolo Xausa_, Feb 27 2024 *)
%Y Cf. A063707, A051258, A063704, A063706.
%K nonn
%O 0,3
%A _Antti Karttunen_, Aug 03 2001