Select[Range[0,7],CoprimeQ[15,#]&]