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

A174543

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

Terms

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

External references