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