OFFSET
0,3
COMMENTS
XOR the binary representations of n and n^3.
n^3 + n >= a(n) >= n^3 - n. - Robert Israel, Sep 02 2015
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..8192
MAPLE
seq(Bits[Xor](n, n^3), n=0..100); # Robert Israel, Sep 02 2015
MATHEMATICA
Table[BitXor[n, n^3], {n, 0, 43}] (* Michael De Vlieger, Sep 01 2015 *)
PROG
(Python)
for n in range(55): print(str(n ^ n*n*n), end=", ")
(PARI) first(m)=vector(m, i, i--; bitxor(i, i^3)) \\ Anders Hellström, Sep 01 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Sep 01 2015
STATUS
approved