A161440 - OEIS

%I #11 Dec 01 2021 09:18:22

%S 0,17,34,51,68,85,102,119,136,153,170,187,204,221,238,255,257,272,291,

%T 306,325,340,359,374,393,408,427,442,461,476,495,510,514,531,544,561,

%U 582,599,612,629,650,667,680,697,718,735,748,765,771,786,801,816,839

%N Numbers m such that A160700(m) = 0.

%H Charles R Greathouse IV, <a href="/A161440/b161440.txt">Table of n, a(n) for n = 1..10000</a>

%F 16n - 16 <= a(n) <= 16n - 1. - _Charles R Greathouse IV_, Jan 25 2018

%t b[n_] := b[n] = If[n < 16, n, b[Floor[n/16]]~BitXor~Mod[n, 16]];

%t Select[Range[0, 1000], b[#] == 0&] (* _Jean-François Alcover_, Dec 01 2021 *)

%o (PARI) A160700(n)=my(t=n%16); while(n>15, n>>=4; t=bitxor(t, n%16)); t

%o a(n)=for(k=16*n-16,16*n-1, if(a(k)==0, return(k))) \\ _Charles R Greathouse IV_, Jan 25 2018

%Y Cf. A160700.

%Y Cf. A161441, A161442, A161443, A161444, A161445, A161446, A161447, A161448, A161449, A161450, A161451, A161452, A161453, A161454, A161455.

%K nonn,easy

%O 1,2

%A _Reinhard Zumkeller_, Jun 10 2009