Circular table (spreadsheet like) - is it possible?

n = 200;
k = 10;
data = Map[Tooltip[1, #] -> {#, FactorInteger[#][[All, 1]], Most @ Divisors[#]} &, 
  Transpose @ Partition[Range[n], k], {-1}];
p2 = Partition[Range[0, 2 Pi, 2 Pi/(n/k)], 2, 1];

DynamicModule[{lg = {"", "", ""}, cef = ChartElementData["Sector"], legend = {}},
 cef = (Dynamic[{EdgeForm[{Thin, Gray}], If[CurrentValue["MouseOver"], 
   {FaceForm[Opacity[1, Red]], lg = #3[[1]]; ChartElementData["Sector"][##], 
    Opacity[1, Purple], 
    ChartElementData["Sector"][{p2[[1 + Quotient[#, k]]], 
     {Mod[#, k, 1] + 1/2, Mod[#, k, 1] + 1}}, 1] & /@ #3[[1, 2]],
    Opacity[1, Green], 
    ChartElementData["Sector"][{p2[[1 + Quotient[#, k]]], 
     {Mod[#, k, 1], Mod[#, k, 1] + 1/2}}, 1] & /@ #3[[1, 3]]}, 
  ChartElementData["Sector"][##]]}] &);
 legend = Placed[Dynamic @ SwatchLegend[{Red, Purple, Green}, 
     MapThread[Row[{##}] &, {Style[#, 20] & /@ {"n = ", "prime factors = ", "divisors = "}, 
       Style[#, 16, If[MousePosition["Graphics"] === None ||          
        Norm[MousePosition["Graphics"]] > k + 1, White, Black]] & /@ lg}]],
   {Top, Left}];
 PieChart[data, ChartElementFunction -> cef, 
  SectorOrigin -> {{0, 1}, 1}, SectorSpacing -> 0, 
  PerformanceGoal -> "Speed", ChartStyle -> Opacity[0], 
  ImageSize -> 500, ChartLegends -> legend, 
  PolarGridLines -> {Range[0, 2 Pi , 2 Pi/(n/k)], {1, k + 1}}]]

Note: n is removed from the list Divisors[n] to reduce visual clutter.