OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
16n - 16 <= a(n) <= 16n - 1. - Charles R Greathouse IV, Jan 25 2018
MATHEMATICA
b[n_] := b[n] = If[n < 16, n, b[Floor[n/16]]~BitXor~Mod[n, 16]];
Select[Range[0, 1000], b[#] == 1&] (* Jean-François Alcover, Dec 01 2021 *)
PROG
(PARI) A160700(n)=my(t=n%16); while(n>15, n>>=4; t=bitxor(t, n%16)); t
a(n)=for(k=16*n-16, 16*n-1, if(a(k)==1, return(k))) \\ Charles R Greathouse IV, Jan 25 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Jun 10 2009
STATUS
approved