login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers whose set of base-11 digits is {1,3}.
1

%I #21 Oct 13 2023 12:22:15

%S 1,3,12,14,34,36,133,135,155,157,375,377,397,399,1464,1466,1486,1488,

%T 1706,1708,1728,1730,4126,4128,4148,4150,4368,4370,4390,4392,16105,

%U 16107,16127,16129,16347,16349,16369,16371,18767,18769,18789,18791,19009,19011

%N Numbers whose set of base-11 digits is {1,3}.

%H Vincenzo Librandi, <a href="/A032918/b032918.txt">Table of n, a(n) for n = 1..200</a>

%t fQ[n_]:=Union@Join[{1,3},IntegerDigits[n,11]]=={1,3};Select[Range[0,20000],fQ] (* _Vincenzo Librandi_, May 25 2012 *)

%o (Magma) [n: n in [1..21000] | Set(IntegerToSequence(n, 11)) subset {1,3}]; // _Bruno Berselli_, May 25 2012

%o (Python)

%o def A032918(n): return (int(bin(m:=n+1)[3:],11)<<1) + (11**(m.bit_length()-1)-1)//10 # _Chai Wah Wu_, Oct 13 2023

%K nonn,base

%O 1,2

%A _Clark Kimberling_