Numbers 1 through 7 are members because they have no pairs of consecutive base 8 digits, and "the empty set has every property". - N. J. A. Sloane, Oct 03 2020
MATHEMATICA
Join[Range[7], Select[Range[2200], Union[Abs[Differences[ IntegerDigits[ #, 8]]]]=={2}&]] (* Harvey P. Dale, Oct 03 2020 *)