kill(all);

van=facebook.com/LearningCalculus$

f(x):=x^2*log(x)$

A: create_list(diff(f(x),x,n),n,4,9);

nthderivative(i):=(-1)^(n)*2*n!/x^(n+1);

B: create_list(nthderivative(n),n,1,6);

fullratsimp(nthderivative(i));

is(equal(A,B));