plot Table[4.656+0.8*(1 + .65 n + .035 n (n + 1)/2), {n, 1, 18}]