? forprime(p=1,20,for(k=2,p-1,print([p,k,binomial(p,k)/p])))
[3, 2, 1]
[5, 2, 2]
[5, 3, 2]
[5, 4, 1]
[7, 2, 3]
[7, 3, 5]
[7, 4, 5]
[7, 5, 3]
[7, 6, 1]
[11, 2, 5]
[11, 3, 15]
[11, 4, 30]
[11, 5, 42]
[11, 6, 42]
[11, 7, 30]
[11, 8, 15]
[11, 9, 5]
[11, 10, 1]
[13, 2, 6]
[13, 3, 22]
[13, 4, 55]
[13, 5, 99]
[13, 6, 132]
[13, 7, 132]
[13, 8, 99]
[13, 9, 55]
[13, 10, 22]
[13, 11, 6]
[13, 12, 1]
[17, 2, 8]
[17, 3, 40]
[17, 4, 140]
[17, 5, 364]
[17, 6, 728]
[17, 7, 1144]
[17, 8, 1430]
[17, 9, 1430]
[17, 10, 1144]