A161441 Numbers n such that A160700(n) = 1.

1, 16, 35, 50, 69, 84, 103, 118, 137, 152, 171, 186, 205, 220, 239, 254, 256, 273, 290, 307, 324, 341, 358, 375, 392, 409, 426, 443, 460, 477, 494, 511, 515, 530, 545, 560, 583, 598, 613, 628, 651, 666, 681, 696, 719, 734, 749, 764, 770, 787, 800, 817, 838

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

A001025 is a subsequence.

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

Sequence in context: A230943 A070589 A104910 * A190741 A294073 A086119

Adjacent sequences: A161438 A161439 A161440 * A161442 A161443 A161444

Keyword

nonn,easy

Author

Reinhard Zumkeller, Jun 10 2009

Status

approved