Dear Bill,
Thanks. Now, I have turned it into:
Flatten[Outer[List, ##] & @@ pp, n - 1],
where pp = {pi, pj, pk}
Best,
GG
.Hint
Flatten[Outer[List,pi,pj,pk],2]
