This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A233273 #13 Mar 01 2024 11:48:16 %S A233273 2,4,7,8,12,13,15,16,21,22,24,25,28,29,31,32,38,39,41,42,45,46,48,49, %T A233273 53,54,56,57,60,61,63,64,71,72,74,75,78,79,81,82,86,87,89,90,93,94,96, %U A233273 97,102,103,105,106,109,110,112,113,117,118,120,121,124,125,127 %N A233273 Bisection of A233272: a(n) = A233272(2n+1). %H A233273 Antti Karttunen, <a href="/A233273/b233273.txt">Table of n, a(n) for n = 0..8192</a> %F A233273 a(n) = A233272(2n+1) = A233272(A005408(n)). %F A233273 a(n) = A120511(n+1) + 1 = A005408(n) + A080791(n) + 1. %t A233273 DigitCount[#, 2, 0] + # + 1 & [Range[1, 200, 2]] (* _Paolo Xausa_, Mar 01 2024 *) %o A233273 (Scheme) %o A233273 (define (A233273 n) (A233272 (A005408 n))) %o A233273 ;; Alternative version: %o A233273 (define (A233273 n) (+ 1 (A005408 n) (A080791 n))) %Y A233273 a(n) = One more than A120511(n+1). %Y A233273 Cf. also A233272, A005408. %K A233273 nonn,base %O A233273 0,1 %A A233273 _Antti Karttunen_, Dec 12 2013