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