|
%I #17 Aug 10 2021 17:11:10
%S 66,67,68,69,70,71,80,83,84,85,86,87,88,90,92,93,94,95,96,98,99,101,
%T 102,103,104,106,107,108,110,111,112,114,115,116,117,119,120,122,123,
%U 124,125,126,129,131,132,133,134,135,136,139,140
%N Numbers with exactly three distinct base-8 digits.
%H <a href="/index/Ar#2-automatic">Index entries for 2-automatic sequences</a>.
%t dd8Q[n_]:=Length[Union[IntegerDigits[n,8]]]==3; Select[Range[200],dd8Q] (* _Harvey P. Dale_, Nov 10 2013 *)
%o (PARI) is(n)=#Set(digits(n,8))==3 \\ _Charles R Greathouse IV_, Feb 15 2017
%Y Cf. A007094.
%K nonn,base,easy
%O 1,1
%A _Clark Kimberling_
|
