newR = Select[newR, aperQ]//Sort

{{1, 3, 25, 3, 4, 9, 20, 3, 13, 28, 3, 32}, {1, 3, 25, 7, 9, 20, 15, 1, 28, 3, 4, 28}, {1, 3, ... 6, 9, 7, 37}, {32, 4, 5, 16, 7, 4, 5, 4, 16, 7, 9, 35}, {32, 4, 7, 16, 5, 4, 7, 4, 16, 5, 11, 33}}

Created by Mathematica  (January 22, 2004)