Coefficients of minimal polynomials with roots a(n)=(1 + Prime[n+1]^(1/n))/2: p(x,n)=If[n == 0, 1, MinimalPolynomial[(1 + Prime[n+1]^(1/n))/2, x]].

A174547

Coefficients of minimal polynomials with roots a(n)=(1 + Prime[n+1]^(1/n))/2: p(x,n)=If[n == 0, 1, MinimalPolynomial[(1 + Prime[n+1]^(1/n))/2, x]].

Terms

    a(0) =1a(1) =-2a(2) =1a(3) =-1a(4) =-1a(5) =1a(6) =-4a(7) =3a(8) =-6a(9) =4a(10) =-5a(11) =-4a(12) =12a(13) =-16a(14) =8a(15) =-7a(16) =5a(17) =-20a(18) =40a(19) =-40a(20) =16a(21) =-4a(22) =-3a(23) =15a(24) =-40a(25) =60a(26) =-48a(27) =16a(28) =-10a(29) =7

External references