This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A161440 #11 Dec 01 2021 09:18:22 %S A161440 0,17,34,51,68,85,102,119,136,153,170,187,204,221,238,255,257,272,291, %T A161440 306,325,340,359,374,393,408,427,442,461,476,495,510,514,531,544,561, %U A161440 582,599,612,629,650,667,680,697,718,735,748,765,771,786,801,816,839 %N A161440 Numbers m such that A160700(m) = 0. %H A161440 Charles R Greathouse IV, <a href="/A161440/b161440.txt">Table of n, a(n) for n = 1..10000</a> %F A161440 16n - 16 <= a(n) <= 16n - 1. - _Charles R Greathouse IV_, Jan 25 2018 %t A161440 b[n_] := b[n] = If[n < 16, n, b[Floor[n/16]]~BitXor~Mod[n, 16]]; %t A161440 Select[Range[0, 1000], b[#] == 0&] (* _Jean-François Alcover_, Dec 01 2021 *) %o A161440 (PARI) A160700(n)=my(t=n%16); while(n>15, n>>=4; t=bitxor(t, n%16)); t %o A161440 a(n)=for(k=16*n-16,16*n-1, if(a(k)==0, return(k))) \\ _Charles R Greathouse IV_, Jan 25 2018 %Y A161440 Cf. A160700. %Y A161440 Cf. A161441, A161442, A161443, A161444, A161445, A161446, A161447, A161448, A161449, A161450, A161451, A161452, A161453, A161454, A161455. %K A161440 nonn,easy %O A161440 1,2 %A A161440 _Reinhard Zumkeller_, Jun 10 2009