A032807 Numbers whose set of base-7 digits is {2,3}.
2, 3, 16, 17, 23, 24, 114, 115, 121, 122, 163, 164, 170, 171, 800, 801, 807, 808, 849, 850, 856, 857, 1143, 1144, 1150, 1151, 1192, 1193, 1199, 1200, 5602, 5603, 5609, 5610, 5651, 5652, 5658, 5659, 5945, 5946, 5952, 5953
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Index entries for 7-automatic sequences.
Programs
-
Magma
[n: n in [1..8000] | Set(IntegerToSequence(n, 7)) subset {2, 3}]; // Vincenzo Librandi, May 27 2012
-
Mathematica
Flatten[Table[FromDigits[#,7]&/@Tuples[{2,3},n],{n,5}]] (* Vincenzo Librandi, May 27 2012 *)