A032831 - OEIS

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

%S 3,4,24,25,31,32,171,172,178,179,220,221,227,228,1200,1201,1207,1208,

%T 1249,1250,1256,1257,1543,1544,1550,1551,1592,1593,1599,1600,8403,

%U 8404,8410,8411,8452,8453,8459,8460,8746,8747,8753

%N Numbers whose set of base-7 digits is {3,4}.

%H Vincenzo Librandi, <a href="/A032831/b032831.txt">Table of n, a(n) for n = 1..1000</a>

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

%t Flatten[Table[FromDigits[#,7]&/@Tuples[{3,4},n],{n,5}]] (* _Vincenzo Librandi_, May 30 2012 *)

%o (Magma) [n: n in [1..9000] | Set(IntegerToSequence(n, 7)) subset {3, 4}]; // _Vincenzo Librandi_, May 30 2012

%K nonn,base,easy

%O 1,1

%A _Clark Kimberling_