login
A270198
a(n) = A054429(A055938(A054429(n))).
2
3, 5, 6, 9, 10, 11, 14, 17, 18, 19, 20, 23, 26, 27, 30, 33, 34, 35, 36, 37, 40, 43, 44, 47, 50, 51, 52, 55, 58, 59, 62, 65, 66, 67, 68, 69, 70, 73, 76, 77, 80, 83, 84, 85, 88, 91, 92, 95, 98, 99, 100, 101, 104, 107, 108, 111, 114, 115, 116, 119, 122, 123, 126, 129, 130, 131, 132, 133, 134, 135, 138, 141, 142, 145
OFFSET
1,1
COMMENTS
Positive natural numbers not in the range of A233272.
LINKS
FORMULA
a(n) = A054429(A055938(A054429(n))).
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 *)
PROG
(Scheme)
(define (A270198 n) (A054429 (A055938 (A054429 n))))
CROSSREFS
Complement: A270200.
Sequence in context: A184413 A187345 A179185 * A133512 A344154 A065871
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, May 31 2016
STATUS
approved