A031960 Numbers with exactly three distinct base-8 digits.

66, 67, 68, 69, 70, 71, 80, 83, 84, 85, 86, 87, 88, 90, 92, 93, 94, 95, 96, 98, 99, 101, 102, 103, 104, 106, 107, 108, 110, 111, 112, 114, 115, 116, 117, 119, 120, 122, 123, 124, 125, 126, 129, 131, 132, 133, 134, 135, 136, 139, 140

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base
• easy

Links

• Index entries for 2-automatic sequences.

Crossrefs

Cf. A007094.

Programs

Mathematica

dd8Q[n_]:=Length[Union[IntegerDigits[n,8]]]==3; Select[Range[200],dd8Q] (* Harvey P. Dale, Nov 10 2013 *)

PARI

is(n)=#Set(digits(n,8))==3 \\ Charles R Greathouse IV, Feb 15 2017