data  =  {{1, 0}, {2, 0}, {3, 0}, {4, 0}, {5, 0.01}, {6, 
          0.03}, {7, 0.12}, {8, 0.55}, {9, 2.97}, {10, 18.62}, {11, 
          81.16}, {12, 459.37}, {13, 3789.34}, {14, 
          126726}}

    
plotpoints  =  
        ListPlot[data, PlotStyle -> PointSize[0.02], 
          PlotRange -> {0, 130000}];
formula  =  Fit[data, (2^n), n];
plotline  =  
        Plot[%, {n, 0, 16}, 
          PlotRange -> {0, 130000}];
Show[plotpoints, plotline];
Print["The Fitted Formula is: " ];
Print[formula];
formula = (7.486463903242123`*^-10)*(2^(3.37443*n))
plotline  =  
        Plot[formula, {n, 0, 16}, 
          PlotRange -> {0, 130000}];
Show[plotpoints, plotline];