%I#14 2017年10月18日20:37:10

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

%T-1,0,0,0-0,0,1,0,0，0,0，0,0，

%U-1,0,0,0，0,0,1,0,0-0,0'0,00,0'，0,0

%N a（1）=1；对于n>1，a（n）=mu（n）*a（floor（n/2）），其中mu是Moebius函数A008683。

%C见A293230中的注释和图示。

%H Antti Karttunen，<a href=“/A293233/b293233.txt”>n的表，a（n）表示n=1..65536</a>

%t Fold[Append[#1，MoebiusMu[#2]#1[[Floor[#2/2]]]&，{1}，Range[2，105]]（*_Michael De Vlieger_，2017年10月10日*）

%o（方案，带有备忘录-宏定义）

%o（定义（A293233 n）（如果（=1 n）1（*（A008683 n））（A293333（/（-n（A000035 n））2）））

%o；；此版本仅演示如何从A292258（n）计算a（n）：

%o（定义（A293233 n）（让回路（（m 1）（n（A292258 n）））（如果（=1 n）m（回路（*m（A008683（A025487（+1（A055396 n））

%Y参考A008683。

%Y参考A293430（给出非零项的位置），A293230（每个范围内的非零项数量[2^n，（2^（n+1））-1]）。

%Y另请参阅A292258、A292259。

%K符号

%O 1号机组

%2017年10月10日，安蒂·卡图宁和米歇尔·德弗利格