A048733 a(n) = A048730(n)/4.

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, 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, 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

Offset

0,4

Comments

A048715 gives all n for which a(n) = 0, A048717 gives all n for which a(n) = n.

Links

Paolo Xausa, Table of n, a(n) for n = 0..8191

Michael De Vlieger, Log log scatterplot of a(n), n = 0..2^20.

Formula

a(n) = ((n*7)-Xmult(n, 7))/4.

Mathematica

A048733[n_] := (7*n - BitXor[n, 2*n, 4*n])/4;
Array[A048733, 100, 0] (* Paolo Xausa, Aug 06 2025 *)

Prog

(PARI) a(n)=(7*n - bitxor(n, bitxor(2*n, 4*n)))/4 \\ Charles R Greathouse IV, Oct 03 2016

Crossrefs

Cf. A048715, A048717, A048730.

Sequence in context: A285723 A072328 A135040 * A309973 A298058 A298707

Adjacent sequences: A048730 A048731 A048732 * A048734 A048735 A048736

Keyword

nonn,easy,look

Author

Antti Karttunen

Status

approved