login
A032919
Numbers whose set of base-12 digits is {1,3}.
1
1, 3, 13, 15, 37, 39, 157, 159, 181, 183, 445, 447, 469, 471, 1885, 1887, 1909, 1911, 2173, 2175, 2197, 2199, 5341, 5343, 5365, 5367, 5629, 5631, 5653, 5655, 22621, 22623, 22645, 22647, 22909, 22911, 22933, 22935, 26077, 26079
OFFSET
1,2
LINKS
MATHEMATICA
Flatten[Table[FromDigits[#, 12]&/@Tuples[{1, 3}, n], {n, 5}]] (* Vincenzo Librandi, Jun 02 2012 *)
PROG
(Magma) [n: n in [1..27000] | Set(IntegerToSequence(n, 12)) subset {1, 3}]; // Vincenzo Librandi, Jun 02 2012
(Python)
def A032919(n): return (int(bin(m:=n+1)[3:], 12)<<1) + (12**(m.bit_length()-1)-1)//11 # Chai Wah Wu, Oct 13 2023
CROSSREFS
Sequence in context: A082704 A353060 A152270 * A340018 A216044 A023144
KEYWORD
nonn,base
STATUS
approved