OFFSET
1,1
COMMENTS
Positive natural numbers not in the range of A233272.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..8192
MATHEMATICA
s = Range[2^(# + 1) - 1, 2^#, -1] & /@ Range[0, 12] // Flatten; t = Complement[#, 2 # - DigitCount[2 #, 2, 1] & /@ #] &@ Range[20007]; Table[s[[ t[[ s[[n]] ]] ]], {n, 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