Исправление nikitos, (текущая версия) :
Формула: 15273. - 445.563 x + 8.19037 x^2 - 1696.21 Log[x]
Говнокод
data = {14636, 13401, 12331, 11395, 10572, 9844, 9196, 8616, 8094,
7622, 7196, 6807, 6452, 6128, 5828, 5554, 5299, 5064, 4846, 4643,
4452, 4276, 4112, 3955, 3810, 3674, 3545, 3422};
func = Fit[Table[{i, data[[i]]}, {i, 1, Length[data]}], {1, x, x^2, Log[x]}, x]
Show[ListPlot[data, PlotStyle -> Red], Plot[func, {x, 1, Length[data]}]]
Исходная версия nikitos, :
Формула: 15273. - 445.563 x + 8.19037 x^2 - 1696.21 Log[x]
Говнокод
data = {14636, 13401, 12331, 11395, 10572, 9844, 9196, 8616, 8094,
7622, 7196, 6807, 6452, 6128, 5828, 5554, 5299, 5064, 4846, 4643,
4452, 4276, 4112, 3955, 3810, 3674, 3545, 3422};
func = Fit[Table[{i, data[[i]]}, {i, 1, Length[data]}], {1, x, x^2, Log[x]}, x]
Show[ListPlot[data, PlotStyle -> Red],
Plot[func, {x, 1, Length[data]}]]