login
A182417
a(0)=0, a(n+1) = (a(n) XOR floor(a(n)/4)) + 1, where XOR is the bitwise exclusive-or operator.
4
0, 1, 2, 3, 4, 6, 8, 11, 10, 9, 12, 16, 21, 17, 22, 20, 18, 23, 19, 24, 31, 25, 32, 41, 36, 46, 38, 48, 61, 51, 64, 81, 70, 88, 79, 93, 75, 90, 77, 95, 73, 92, 76, 96, 121, 104, 115, 112, 109, 119, 107, 114, 111, 117, 105, 116, 106, 113, 110, 118, 108
OFFSET
0,3
COMMENTS
As n -> infinity, a(n) -> infinity.
LINKS
MATHEMATICA
NestList[BitXor[#, Quotient[#, 4]] + 1 &, 0, 60] (* Ivan Neretin, Sep 03 2015 *)
PROG
(PARI)
N=100; v=vector(N);
for (n=1, N-1, v[n+1] = bitxor( v[n], v[n] \ 8 ) + 1 );
v /* show terms */
/* Joerg Arndt, Apr 28 2012 */
CROSSREFS
Cf. A182310.
Sequence in context: A237450 A165514 A372032 * A189704 A223543 A306802
KEYWORD
nonn,base,look
AUTHOR
Alex Ratushnyak, Apr 27 2012
STATUS
approved