login
a(1) = 0; for n>1, a(n) = 1 if n is a power of 2, otherwise a(n) = 2.
2

%I #20 Dec 03 2021 15:34:44

%S 0,1,2,1,2,2,2,1,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,2,

%T 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,2,2,2,

%U 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2

%N a(1) = 0; for n>1, a(n) = 1 if n is a power of 2, otherwise a(n) = 2.

%C This solves the Emissary puzzle.

%H Antti Karttunen, <a href="/A201219/b201219.txt">Table of n, a(n) for n = 1..16384</a>

%H <a href="http://www.msri.org/attachments/media/news/emissary/EmissaryFall2011.pdf">Puzzles Column</a>, Emissary, Fall 2011, page 9, puzzle 6.

%F a(1) = 0, for n > 1, a(n) = 2 - A209229(n). - _Antti Karttunen_, Nov 19 2017

%t Join[{0},Table[If[IntegerQ[Log2[n]],1,2],{n,2,200}]] (* _Harvey P. Dale_, Dec 03 2021 *)

%Y Cf. A043529, A209229.

%K nonn

%O 1,3

%A _N. J. A. Sloane_, Nov 28 2011