proposed
approved
proposed
approved
editing
proposed
Michael De Vlieger, <a href="/A048644/b048644.txt">Table of n, a(n) for n = 0..10000</a>
Hsien-Kuei Hwang, Svante Janson, and Tsung-Hsi Tsai, <a href="https://arxiv.org/abs/2210.10968">Identities and periodic oscillations of divide-and-conquer recurrences splitting at half</a>, arXiv:2210.10968 [cs.DS], 2022, p. 40.
{0}~Join~MapIndexed[#1 - PolygonalNumber[First[#2]] &, Accumulate[Array[BitXor[#, Floor[#/2]] &, 65]]] (* Michael De Vlieger, Oct 29 2022 *)
approved
editing
Corrected by _Don Reble (djr(AT)nk.ca), _, May 01 2006
proposed
approved
editing
proposed
(PARI) a(n) = sum(k=0, n, bitxor(k, k>>1)) - n*(n+1)/2; \\ Michel Marcus, Oct 02 2015
_Antti Karttunen, _, Jul 14 1999
approved
editing
0, 0, 1, 0, 2, 4, 3, 0, 4, 8, 13, 16, 14, 12, 132, 540, 7, 0, 8, 16, 25, 32, 42, 52, 59, 64, 60, 56, 53, 48, 38, 28, 15, 0, 20160, 423360, 8164800, 125193600, 1172102400, 11935123200, 76281004800, 16, 32, 49, 64, 82, 100, 115, 128, 148, 168, 189, 208, 222, 236, 247, 256, 248, 240, 233, 224, 218, 212, 203, 192, 172, 152, 133, 112, 86, 60, 31, 0, 10461394944000, 428917192704000, 14781951055872000, 429147343392768000, 1409087130587136000032, 64
a(n) = sum(XORnos(j, floor(j/2)), j=0..n)-((jn^2+jn)/2).
easy,nonn,new
Corrected by Don Reble (djr(AT)nk.ca), May 01 2006
a(n) = sum(XORnos(j, floor(j/2)), j=0..n)-((j^2+j)/2).
easy,nonn,new
easy,huge,nonn,new
Antti.Karttunen@iki.fi (karttu@megabaud.fi (4.July.1999))
Antti Karttunen, Jul 14 1999