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