This is my solution for now:
function cent = centuries(a)
if ~isscalar(a) || a<1 || a >3000 || a ~= fix(a)
cent = '';
else
rest = mod(a,100);
c = floor(a/100);
if rest ~= 0
c = c+1;
end
b = {'I','II','III','IV','V','VI','VII','VIII','IX','X','XI','XII','XIII','XIV','XV','XVI','XVII','XVIII','XIX','XX','XXI','XXII','XXIII','XXIV','XXV','XXVI','XXVII','XXVIII','XXIX','XXX'} ;
cent = b{c};
end