(*Mathematica*)
(*start*)
TableForm[
coordinatesForEquidistantSpheresWithDiameterEqualToOneInNdimensions =
Table[Table[
If[n == 0, 0,
If[n >= k,
If[k == 1, 1, -1]*
If[k == n, Sqrt[(n + 1)/(n)/2], 1/2/Sqrt[((k + 1)*k/2)]],
0]], {k, 1, 8}], {n, 0, 8}]]
N[Table[EuclideanDistance[
coordinatesForEquidistantSpheresWithDiameterEqualToOneInNdimensions\
[[m]], coordinatesForEquidistantSpheresWithDiameterEqualToOneInNdimens\
ions[[m + 1]]], {m, 1, 8}], 50]
Table[VectorAngle[
coordinatesForEquidistantSpheresWithDiameterEqualToOneInNdimension\