Select[Range[10],CoprimeQ[21,#]&]