A032919 Numbers whose set of base-12 digits is {1,3}.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A032916 A032917 A032918 * A032920 A032921 A032922

Keyword

nonn,base

Author

Clark Kimberling

Status

approved