%I#103 2023年3月8日14:59:52

%S 0,0,0,1,0,1,0,0,1,0,1,0,1,0,1,0,1,0,0,0,1,0,1,1,0,0,0,1,1,0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,0,0,0，

%温度0,1,0,0,1,1,0,0,0、0,1,1,0,1,1,1,0、1,0,1,11,0,0，1,1,0,1,0，

%U值0,0,1,1,0,0,0，1,1,0,1,0,1,0，0,1,1,0,01,0,1,1,1,1,1,0,1,0,1

%N位在N的二进制展开中最低有效1位的左侧。

%C A091067的特性函数。

%C图像，在编码i->floor（i/2）下，从0开始的不动点的同态0->01，1->02，2->32，3->31_杰弗里·沙利特（Jeffrey Shallit），2016年5月15日

%C限制于正整数，完全可加模2.-_Peter Munn，2022年6月20日

%D Jean-Paul Allouche和Jeffrey O.Shallit，《自动序列》，剑桥，2003年，第三节。5.1.6

%H Ivan Panchenko，n的表格，n=0..10000的a（n）</a>

%H Michael Gilleland，一些自相似整数序列</a>

%特征函数的索引项</a>

%H<a href=“/index/Bi#binary”>与n的二进制展开相关的序列的索引项</a>

%H<a href=“/index/Fo#fold”>通过枚举折叠获得的序列的索引项</a>

%对于n>0，F a（0）=0，a（2*n）=a（n），a（4*n+1）=0；a（4xn+3）=1。

%F G.F.：总和{k>=0}t^3/（1-t^4），其中t=x^2^k.A025480的奇偶性。对于n>=1，a（n）=1/2*（1-（-1）^A025480（n-1））。-_拉尔夫·斯蒂芬（Ralf Stephan），2004年1月4日[由佩特·穆恩（_Peter Munn）调整的指数，2022年6月22日]

%如果对于所有m，Kronecker（-n，m）=Kronecler（m，n），则F a（n）=1，否则a（n_迈克尔·索莫斯（Michael Somos），2005年9月22日

%当A164677（n）<0.-时，F a（n）=1_M.F.Hasler，2015年8月6日

%F对于n>=1，a（n）=A065339（n）mod 2.-_Peter Munn，2022年6月20日

%F From _A.H.M.Smeets_，2023年3月8日：（开始）

%当n>=0时，F a（n+1）=1-A014577（n）。

%当n>=0时，F a（n+1）=2-A014710（n）。

%对于n>0，F a（n）=（1-A034947（n））/2。（结束）

%e a（6）=1，因为6=110，最右边1之前的位是1。

%p A038189:=程序（n）

%p选项记忆；

%p如果n=0，则

%p 0；

%p elif类型（n，‘even’）则

%p进程名（n/2）；

%p elif modp（n，4）=1，则

%p 0；

%p其他

%第1页；

%p end if；

%p端程序：

%p序列（A038189（n），n=0..100）；#_R.J.Mathar，2018年3月30日

%t f[n_]：=块[{id2=Join[{0}，整数位数[n，2]]}，而[id2[[-1]]==0，id2=Most@id2]；id2[[-2]]]；f[0]=0；数组[f，105，0]（*_Robert G.Wilson v_，2009年4月14日，已修复，2014年2月27日*）

%t f[n_]：=f[n]=开关[Mod[n，4]，0，f[n/2]，1，0，2，f[n/2]，3，1]；f[0]=0；数组[f，105，0]（*_Robert G.Wilson v_，2009年4月14日，已修复2014年2月27日*）

%o（C）int a（int n）{return（n&（（n&-n）<<1））？1:0；}/*来自_Russ-Cox_*/

%o（PARI）a（n）=如果（n<1，0，（（n/2^估值（n，2）-1）/2）%2）/*_Michael Somos_，2005年9月22日*/

%o（PARI）a（n）=如果（n<3，0，prod（m=1，n，kronecker（-n，m）==kroneckerm（m，n））/*迈克尔·索莫斯，2005年9月22日*/

%o（PARI）A038189（n）=比特（n，估值（n，2）+1）\\ M.F.Hasler_，2015年8月6日

%o（PARI）a（n）=我的（h=位和（n，-n））；n=比特（n，h<<1）；不=0; \\ _Joerg Arndt_，2021年4月9日

%o（岩浆）

%o函数a（n）

%o如果n等于0，则返回0；//或者，返回1；

%o else while IsEven（n）do n：=n div 2；结束while；结束条件：；

%o返回n div 2 mod 2；端函数；

%o nlo：=0；nhi:=32；

%o[a（n）:n in[nlo..nhi]]；//_Fred Lunnon，2018年3月27日

%o（Python）

%o定义A038189（n）：

%o s=箱（n）[2:]

%o m=长度

%o i=s[：：-1].查找（'1'）

%o如果m-i-2>=0，则返回int（s[m-i-2]），否则0#_Chai Wah Wu_，2021年4月8日

%Y参考A038190、A065339。

%Y A014707（n）=a（n+1）。A014577（n）=1-a（n+1）。

%以下顺序基本相同：A014577、A014707、A014709、A014710、A034947、A038189、A082410_N.J.A.Sloane，2012年7月27日

%Y相关序列A301848、A301849、A301850.-_Fred Lunnon_，2018年3月27日

%K nonn，easy，基本

%0、1

%A_Fred Lunnon，1999年12月11日

%E来自_David W.Wilson的更多条款_

%E由_Russ Cox和_Ralf Stephan修正的定义，2004年11月8日