A261807 - OEIS

%I #16 Jun 10 2020 10:50:33

%S 0,0,10,24,68,120,222,336,520,720,994,1336,1740,2200,2742,3360,4112,

%T 4896,5850,6872,8020,9272,10638,12176,13848,15632,17586,19704,21980,

%U 24408,26982,29760,32800,35904,39338,42840,46692,50680,54910,59280,64040,68880,74050,79544

%N a(n) = n XOR n^3.

%C XOR the binary representations of n and n^3.

%C n^3 + n >= a(n) >= n^3 - n. - _Robert Israel_, Sep 02 2015

%H Alois P. Heinz, <a href="/A261807/b261807.txt">Table of n, a(n) for n = 0..8192</a>

%p seq(Bits[Xor](n,n^3), n=0..100); # _Robert Israel_, Sep 02 2015

%t Table[BitXor[n, n^3], {n, 0, 43}] (* _Michael De Vlieger_, Sep 01 2015 *)

%o (Python)

%o for n in range(55): print(str(n ^ n*n*n), end=",")

%o (PARI) first(m)=vector(m,i,i--;bitxor(i,i^3)) \\ _Anders Hellström_, Sep 01 2015

%Y Cf. A169810.

%K nonn,base

%O 0,3

%A _Alex Ratushnyak_, Sep 01 2015