|
%I #12 Sep 08 2022 08:44:51
%S 1,2,9,10,17,18,73,74,81,82,137,138,145,146,585,586,593,594,649,650,
%T 657,658,1097,1098,1105,1106,1161,1162,1169,1170,4681,4682,4689,4690,
%U 4745,4746,4753,4754,5193,5194,5201,5202,5257,5258
%N Numbers whose set of base-8 digits is {1,2}.
%H Vincenzo Librandi, <a href="/A032929/b032929.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[FromDigits[#,8]&/@Tuples[{1,2},n],{n,5}]] (* _Vincenzo Librandi_, Jun 03 2012 *)
%o (Magma) [n: n in [1..5500] | Set(IntegerToSequence(n, 8)) subset {1, 2}]; // _Vincenzo Librandi_, Jun 03 2012
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
