OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Flatten[Table[FromDigits[#, 16]&/@Tuples[{1, 3}, n], {n, 5}]] (* Vincenzo Librandi, Jun 03 2012 *)
PROG
(Magma) [n: n in [1..75000] | Set(IntegerToSequence(n, 16)) subset {1, 3}]; // Vincenzo Librandi, Jun 03 2012
(Python)
def A032923(n): return (int(bin(m:=n+1)[3:], 16)<<1) + ((1<<(m.bit_length()-1<<2))-1)//15 # Chai Wah Wu, Oct 13 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved