A270198 a(n) = A054429(A055938(A054429(n))).

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

Antti Karttunen, Table of n, a(n) for n = 1..8192

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.

Cf. A054429, A055938, A233272.

Sequence in context: A184413 A187345 A179185 * A133512 A344154 A065871

Adjacent sequences: A270195 A270196 A270197 * A270199 A270200 A270201

Keyword

nonn,base

Author

Antti Karttunen, May 31 2016

Status

approved