|
%I #9 Oct 22 2018 12:45:21
%S 1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,
%T 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,
%U 1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0
%N a(n) = 1 if n encodes a nonnegative combinatorial game (in a style of A106486), otherwise 0; Characteristic function of A126001.
%H Antti Karttunen, <a href="/A320006/b320006.txt">Table of n, a(n) for n = 0..65537</a>
%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%o (PARI)
%o A320006(n) = if(!n,1,my(m=(n>>1), r=0); while(m>0, if((m%2)&&!A320007(r),return(0)); m >>= 2; r++); (1));
%o A320007(n) = if(!n,0,my(m=n, s=0); while(m>0, if((m%2)&&A320006(s),return(1)); m >>= 2; s++); (0));
%Y Characteristic function of A126001. The topmost row of A125999.
%Y Cf. A320007.
%K nonn
%O 0
%A _Antti Karttunen_, Oct 18 2018
|
