|
%I #17 Sep 08 2022 08:44:51
%S 3,4,21,22,27,28,129,130,135,136,165,166,171,172,777,778,783,784,813,
%T 814,819,820,993,994,999,1000,1029,1030,1035,1036,4665,4666,4671,4672,
%U 4701,4702,4707,4708,4881,4882,4887,4888,4917
%N Numbers whose set of base-6 digits is {3,4}.
%H Vincenzo Librandi, <a href="/A032830/b032830.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Ar#6-automatic">Index entries for 6-automatic sequences</a>.
%t Flatten[Table[FromDigits[#,6]&/@Tuples[{3,4},n],{n,5}]] (* _Vincenzo Librandi_, May 30 2012 *)
%o (Magma) [n: n in [1..5000] | Set(IntegerToSequence(n, 6)) subset {3, 4}]; // _Vincenzo Librandi_, May 30 2012
%K nonn,base,easy
%O 1,1
%A _Clark Kimberling_
|
