|
%I #15 Sep 08 2022 08:44:51
%S 2,3,28,29,41,42,366,367,379,380,535,536,548,549,4760,4761,4773,4774,
%T 4929,4930,4942,4943,6957,6958,6970,6971,7126,7127,7139,7140,61882,
%U 61883,61895,61896,62051,62052,62064,62065,64079,64080
%N Numbers whose set of base-13 digits is {2,3}.
%H Vincenzo Librandi, <a href="/A032813/b032813.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Ar#13-automatic">Index entries for 13-automatic sequences</a>.
%t Flatten[Table[FromDigits[#,13]&/@Tuples[{2,3},n],{n,5}]] (* _Vincenzo Librandi_, May 27 2012 *)
%o (Magma) [n: n in [1..70000] | Set(IntegerToSequence(n, 13)) subset {2, 3}]; // _Vincenzo Librandi_, May 27 2012
%K nonn,base,easy
%O 1,1
%A _Clark Kimberling_
|
