|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|