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 A048733 #14 Aug 06 2025 17:40:49 %S A048733 0,0,0,3,0,2,6,7,0,0,4,7,12,14,14,15,0,0,0,3,8,10,14,15,24,24,28,31, %T A048733 28,30,30,31,0,0,0,3,0,2,6,7,16,16,20,23,28,30,30,31,48,48,48,51,56, %U A048733 58,62,63,56,56,60,63,60,62,62,63,0,0,0,3,0,2,6,7,0,0,4,7,12,14,14,15,32,32 %N A048733 a(n) = A048730(n)/4. %C A048733 A048715 gives all n for which a(n) = 0, A048717 gives all n for which a(n) = n. %H A048733 Paolo Xausa, <a href="/A048733/b048733.txt">Table of n, a(n) for n = 0..8191</a> %H A048733 Michael De Vlieger, <a href="/A048733/a048733.png">Log log scatterplot of a(n)</a>, n = 0..2^20. %F A048733 a(n) = ((n*7)-Xmult(n, 7))/4. %t A048733 A048733[n_] := (7*n - BitXor[n, 2*n, 4*n])/4; %t A048733 Array[A048733, 100, 0] (* _Paolo Xausa_, Aug 06 2025 *) %o A048733 (PARI) a(n)=(7*n - bitxor(n, bitxor(2*n, 4*n)))/4 \\ _Charles R Greathouse IV_, Oct 03 2016 %Y A048733 Cf. A048715, A048717, A048730. %K A048733 nonn,easy,look %O A048733 0,4 %A A048733 Antti Karttunen