login
A032806
Numbers whose set of base-6 digits is {2,3}.
2
2, 3, 14, 15, 20, 21, 86, 87, 92, 93, 122, 123, 128, 129, 518, 519, 524, 525, 554, 555, 560, 561, 734, 735, 740, 741, 770, 771, 776, 777, 3110, 3111, 3116, 3117, 3146, 3147, 3152, 3153, 3326, 3327, 3332, 3333, 3362, 3363, 3368
OFFSET
1,1
MATHEMATICA
Flatten[Table[FromDigits[#, 6]&/@Tuples[{2, 3}, n], {n, 5}]] (* Vincenzo Librandi, May 26 2012 *)
PROG
(Magma) [n: n in [1..8000] | Set(IntegerToSequence(n, 6)) subset {2, 3}]; // Vincenzo Librandi, May 26 2012
(Magma) [n eq 1 select 2 else IsOdd(n) select 6*Self(Floor(n/2))+2 else Self(n-1)+1: n in [1..45]]; // Bruno Berselli, May 27 2012
CROSSREFS
Sequence in context: A206578 A056435 A244295 * A353870 A225756 A260143
KEYWORD
nonn,base,easy
STATUS
approved