mod[n_]:=Append[n, First[n]];
plus[n_]:=Table[mod[n][[i]]+mod[n][[i+1]], {i, 1, Length[mod[n]]-1}];
goodPermutations[n_]:=Select[Permutations[n], Length[plus[#]]==Length[Union[plus[#]]]&];
min[n_]:=Min[Max/@plus/@goodPermutations[Range[n]]];
bestPermutation[n_]:=Select[goodPermutations[Range[n]], Max[plus[#]]==min[n]&, 1];
plusBP[n_]:=plus/@bestPermutation[n]; max[n_]:=Max[Max/@plusBP[n]];
unit[n_]:=max[n]+n+1; sum[n_]:=n*unit[n]-Total@@plusBP[n]+n*(n+1)/2; sum/@Range[3, 8]