A233273 Bisection of A233272: a(n) = A233272(2n+1).

2, 4, 7, 8, 12, 13, 15, 16, 21, 22, 24, 25, 28, 29, 31, 32, 38, 39, 41, 42, 45, 46, 48, 49, 53, 54, 56, 57, 60, 61, 63, 64, 71, 72, 74, 75, 78, 79, 81, 82, 86, 87, 89, 90, 93, 94, 96, 97, 102, 103, 105, 106, 109, 110, 112, 113, 117, 118, 120, 121, 124, 125, 127

Offset

0,1

Links

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

Formula

a(n) = A233272(2n+1) = A233272(A005408(n)).

a(n) = A120511(n+1) + 1 = A005408(n) + A080791(n) + 1.

Mathematica

DigitCount[#, 2, 0] + # + 1 & [Range[1, 200, 2]] (* Paolo Xausa, Mar 01 2024 *)

Prog

(Scheme)
(define (A233273 n) (A233272 (A005408 n)))
;; Alternative version:
(define (A233273 n) (+ 1 (A005408 n) (A080791 n)))

Crossrefs

a(n) = One more than A120511(n+1).

Cf. also A233272, A005408.

Sequence in context: A085262 A344155 A344953 * A270200 A186543 A187346

Adjacent sequences: A233270 A233271 A233272 * A233274 A233275 A233276

Keyword

nonn,base

Author

Antti Karttunen, Dec 12 2013

Status

approved