%I #33 Sep 08 2022 08:44:51

%S 2,3,24,25,35,36,266,267,277,278,387,388,398,399,2928,2929,2939,2940,

%T 3049,3050,3060,3061,4259,4260,4270,4271,4380,4381,4391,4392,32210,

%U 32211,32221,32222,32331,32332,32342,32343,33541,33542,33552,33553,33662,33663

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

%H Vincenzo Librandi and Bruno Berselli, <a href="/A032811/b032811.txt">Table of n, a(n) for n = 1..1000</a> (first 200 terms from Vincenzo Librandi).

%H <a href="/index/Ar#11-automatic">Index entries for 11-automatic sequences</a>.

%F a(1)=2, a(2)=3; a(n) = 11*a(floor(n/2))+2 for n odd, otherwise a(n) = 11*a(floor((n-1)/2))+3. - _Bruno Berselli_, May 28 2012

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

%t Table[FromDigits[#,11]&/@Tuples[{2,3},n],{n,5}]//Flatten (* _Harvey P. Dale_, Sep 14 2018 *)

%o (PARI) {for(vv=1, 44,

%o bvv=binary(vv+1);

%o texp=0; btb=0;

%o forstep(i=length(bvv)-1, 1, -1, btb=btb+(2+bvv[i+1])*11^texp; texp++);

%o print1(btb, ", "))} \\ _Douglas Latimer_, May 17 2012

%o (Maxima) a[1]:2$ a[2]:3$ a[n]:= if oddp(n) then 11*a[floor(n/2)]+2 else 11*a[floor((n-1)/2)]+3$ makelist(a[n],n,1,44); \\ _Bruno Berselli_, May 28 2012

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

%K nonn,base,easy

%O 1,1

%A _Clark Kimberling_

%E More terms from _Douglas Latimer_, May 17 2012