n=391, Table[(Binomial[n, k]) mod n, {k, 1, floor[0.5n]}]