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

Author

Antti Karttunen, Dec 12 2013

Keywords

• nonn
• base

Links

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

Crossrefs

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

Cf. also A233272, A005408.

Programs

Mathematica

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

Scheme

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

Formula

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

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