listeT_even := [1/nu*D(TT)(0), -(6*nu^2*w+1)/nu^2*D(TT)(0)+1/6/nu*(nu+1)*(D@@3)
(TT)(0)+1/nu*(nu+2)*w^2, 6*(nu-1)/nu*D(TT)(0)^2+(4*nu^3*w+16*nu^2*w+7*nu*w+nu+2
)/nu^3*D(TT)(0)-1/6/nu^2*(9*nu^2*w+nu^2+2*nu+2)*(D@@3)(TT)(0)+1/120/nu*(2*nu+1)
*(D@@5)(TT)(0)-1/nu^2*w^2*(9*nu^2*w+nu^2+4*nu+4)];
