%I#36 2023年8月27日04:22:42

%S 1,1,1,1,2,1,2,1,1,2,2,1,2,2,2,2,1,1,2,2,2,2,2,1,3,2,2,2,2,1,2,2，

%温度4,1,2,2,2,2,2,2,2,22,2,2,1,3,3,2,2,1,4,2,2,2,2,2,1,2,2,1,4,2,2,2，

%U 2,4,2,1,2,2,3,2,4,2,2,1,2,2,2,4,2_2,2,2,2,2,2,2,2,4,2,2,2,4,12,3,3,2,2,22,4,4

%N Dirichlet级数Product_p（1-（Kronecker（m，p）+1）*p^。

%C a（n）是多项式x^（2n）-x^n+1的因子数（在Q上）Yuval Dekel（dekelyuval（AT）hotmail.com），2003年8月30日

%这个序列是乘法的。正如（A001227）（n）是将n写成三边形数之差的方法数量一样，这个序列是将n写成（-1）-边形数的差的方法的数量。如果p_e（n）：=1/2*n*（（e-2）*n+（4-e））是第n个e-gonal数，则2*a（n）=Z X Z的|{（m，k）；pe（-1）（m+k）-pe（m-1）=n}|表示e=-1Volker Schmitt（clamsi（AT）gmx.net），2004年10月11日

%C a（n）是n不能被2或3整除的除数。例如，a（36）=1，因为1是36的唯一除数。a（10）=2，因为我们计算除数1和5_杰弗里·克里泽尔，2015年2月15日

%H Antti Karttunen，n表，n=1..65537的a（n）</a>

%F a（n）=d（6n）-d（3n）-d-（2n）+d（n），其中d（）是除数函数Yuval Dekel（dekelyuval（AT）hotmail.com），2003年8月30日

%F与a（2^e）=1相乘，a（3^e）=1，a（p^e）=e+1，如果p>3。逆Möbius变换是周期的，具有1,0,0,0,1,0Volker Schmitt（clamsi（AT）gmx.net），2004年10月11日

%F Dirichlet g.F.：zeta（s）^2*（1-1/2^s）*（1-1/3^s）_杰弗里·克里策尔，2015年2月15日

%F From _Antti Karttune_，2018年10月3日：（开始）

%F a（n）=A279060（n）+A319995（n）。

%F a（n）=A320015（n）+ch15（n），其中ch15是形式为+-1 mod 6的数字的特征函数，即ch15（n）=A232991（n-1）。

%F（完）

%F Sum_{k=1..n}a（k）~n*（log（n）+2*gamma+log（12）/2-1）/3，其中gamma是Euler-Marcheroni常数A001620.-_Vaclav Kotesovec_，2019年1月29日

%p分辨率：=1；ifac:=op（ifactors（i））[2]；ifac-do中的pfac；如果pfac[1]>3，则res:=res*（pfac[2]+1）；a（n）：=res；

%t nn=81；f[list_，i]：=列表[[i]]；a=前缀[Drop[Table[Boole[Min[FactorInteger[n][[All，1]]>3]，{n，1，nn}]，1]；b=表[1，{nn}]；表[DirichletConvolve[f[a，n]，f[b，n]、n，m]，{m，1，nn}]（*_Geoffrey Critzer_，2015年2月15日*）

%t f[p_，e_]：=如果[p>=5，e+1，1]；a[1]=1；a[n_]：=倍@@f@@FactorInteger[n]；阵列[a，100]（*_Amiram Eldar_，2023年8月27日*）

%o（PARI）m=36；方向（p=2101,1/（1-（kronecker（m，p）*（X-X^2））-X）

%o（PARI）a（n）=sumdiv（n，d，（d%2）&&（d%3））；\\_米歇尔·马库斯，2015年2月16日

%Y参见A035191、A000005、A001227、A279060、A319995、A320015、A001620。

%K nonn，mult，easy，简单

%O 1,5型

%A _N.J.A.斯隆_

%E 2018年10月3日，来自安蒂·卡图宁的更多条款