k4_g3 := List([1..10], i -> []);

k4_g3[6,1] := [ [ 2, 3, 4, 5 ], [ 1, 3, 5, 6 ], [ 1, 2, 4, 6 ], [ 1, 3, 5, 6 ], [ 1, 2, 4, 6 ], [ 2, 3, 4, 5 ] ];

k4_g3[7,1] := [ [ 2, 4, 5, 7 ], [ 1, 3, 5, 6 ], [ 2, 4, 6, 7 ], [ 1, 3, 5, 7 ], [ 1, 2, 4, 6 ], [ 2, 3, 5, 7 ], [ 1, 3, 4, 6 ] ];

k4_g3[8,1] := [ [ 2, 4, 6, 8 ], [ 1, 3, 5, 8 ], [ 2, 4, 6, 7 ], [ 1, 3, 5, 7 ], [ 2, 4, 6, 8 ], [ 1, 3, 5, 7 ], [ 3, 4, 6, 8 ], [ 1, 2, 5, 7 ] ];

k4_g3[9,1] := [ [ 2, 4, 8, 9 ], [ 1, 3, 5, 7 ], [ 2, 4, 6, 9 ], [ 1, 3, 5, 7 ], [ 2, 4, 6, 8 ], [ 3, 5, 7, 9 ], [ 2, 4, 6, 8 ], [ 1, 5, 7, 9 ], [ 1, 3, 6, 8 ] ];

k4_g3[10,1] := [ [ 2, 4, 9, 10 ], [ 1, 3, 5, 10 ], [ 2, 4, 6, 8 ], [ 1, 3, 5, 7 ], [ 2, 4, 6, 8 ], [ 3, 5, 7, 9 ], [ 4, 6, 8, 10 ], [ 3, 5, 7, 9 ], [ 1, 6, 8, 10 ], [ 1, 2, 7, 9 ] ];