|
%I #11 Sep 08 2022 08:44:51
%S 1,3,13,15,37,39,157,159,181,183,445,447,469,471,1885,1887,1909,1911,
%T 2173,2175,2197,2199,5341,5343,5365,5367,5629,5631,5653,5655,22621,
%U 22623,22645,22647,22909,22911,22933,22935,26077,26079
%N Numbers whose set of base-12 digits is {1,3}.
%H Vincenzo Librandi, <a href="/A032919/b032919.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[FromDigits[#,12]&/@Tuples[{1,3},n],{n,5}]] (* _Vincenzo Librandi_, Jun 02 2012 *)
%o (Magma) [n: n in [1..27000] | Set(IntegerToSequence(n, 12)) subset {1, 3}]; // _Vincenzo Librandi_, Jun 02 2012
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
