%I #15 Oct 13 2023 12:22:07
%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
%o (Python)
%o def A032919(n): return (int(bin(m:=n+1)[3:],12)<<1) + (12**(m.bit_length()-1)-1)//11 # _Chai Wah Wu_, Oct 13 2023
%K nonn,base
%O 1,2
%A _Clark Kimberling_