Select[Range[7],Divisible[#^3 - 6,7]&]