|
%I #21 Feb 27 2024 06:49:41
%S 2,1,3,5,4,16,2,45,8,23,5,320,5,841,11,26,48,5776,15,15125,34,167,76,
%T 103680,41,16626,199,5855,233,1860496,56,4870845,2208,7602,1364,45081,
%U 305,87403801,3571,51941,1926,599074576,407,1568397605,10946,80321
%N Cyclotomic polynomials Phi_n at x=phi, rounded to nearest integer (where phi = tau = (sqrt(5)+1)/2).
%H Robert Israel, <a href="/A063705/b063705.txt">Table of n, a(n) for n = 0..2500</a>
%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtPhi">Index entries for cyclotomic polynomials, values at phi</a>
%p 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)];
%t Join[{2}, Round[Simplify[Cyclotomic[Range[50], GoldenRatio]]]] (* _Paolo Xausa_, Feb 27 2024 *)
%Y Cf. A019320, A063703, A063707, A063706.
%K nonn
%O 0,1
%A _Antti Karttunen_, Aug 03 2001
%E a(43) corrected by _Sean A. Irvine_, May 08 2023
|
