Error[N_]:=(∫_(-π)^π)(x^4)\[DifferentialD]x - π(2((π^4)/9)+ (∑_(n=1)^N)(16/(n^4)))

Error[N]

n=1;While[n<30,Print["For N=",n," the error is ", N[Error[n]]];n++]