SphericalDistance

SphericalDistance[{θ 1, ϕ 1}, {θ 2, ϕ 2}]

SphericalDistance[{θ 1, 1, θ 1, 2, …, ϕ 1}, {θ 2, 1, θ 2, 2, …, ϕ 2}]