OFFSET
0,3
COMMENTS
After the initial zero, numbers that occur in the range of A233272.
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..8192
FORMULA
MATHEMATICA
s = Range[2^(# + 1) - 1, 2^#, -1] & /@ Range[0, 12] // Flatten; {0, 1}~Join~Table[s[[2 # - DigitCount[2 #, 2, 1] &[1 + s[[n - 1]]]]], {n, 2, 74}] (* Michael De Vlieger, Jun 01 2016, after Harvey P. Dale at A005187 and A054429 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, May 31 2016
STATUS
approved