%I#28 2023年11月25日04:27:30

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

%T 1,1,2,1,1,1,2,1,1,2,2,1,1,2,2,1,2,1,2,1,1,1,1,1,2,2,1,1,1,1,2,2,2,2,1,1,1,1,3,1,2,1，

%U 1,1,2,3,1,1,2,1,1,2,1,1,1,1,2,2,1,1,1,1,2,2,3,1,2,1,1,2,1,1,2

%N形式为7*k+1的N的除数。

%Cöebius变换是一个周期-7序列{1，0，0，0,0，0…}。

%H Robert Israel，<a href=“/A279061/b279061.txt”>n，a（n）表，n=0.-10000</a>

%H R.A.Smith和M.V.Subbarao，<A href=“https://doi.org/10.4153/CBM-1981-005-3“>算术级数中除数的平均数，《加拿大数学公报》，第24卷，第1期（1981年），第37-41页。

%F G.F.：和{k>=1}x^k/（1-x^（7*k））。

%F G.F.：和{k>=0}x^（7*k+1）/（1-x^。

%F总和{k=1..n}a（k）=n*log（n）/7+c*n+O（n^（1/3）*log_阿米拉姆·埃尔达尔，2023年11月25日

%e a（8）=2，因为8有4个除数{1,2,4,8}，其中2个除数}的形式是7*k+1。

%p N:=200:#以获得（0）。。a（否）

%p V：=矢量（N）：

%p代表k从1到N do

%p R：=[序列（i，i=k.N，7*k）]；

%p V[R]：=映射（`+`，V[R]，1）；

%日期：

%p 0，序列（V[i]，i=1..N）；#_罗伯特·伊斯雷尔（Robert Israel），2016年12月5日

%t nmax=120；系数列表[级数[和[x^k/（1-x^（7k）），{k，1，nmax}]，{x，0，nmax{]，x]

%t nmax=120；系数列表[级数[和[x^（7k+1）/（1-x^）（7k/1）），{k，0，nmax}]，{x，0，nm最大}]，x]

%t表格[Count[Divisors[n]，_？（整数Q[（#-1）/7]&）]，{n，0100}]（*_哈维P.Dale_，2022年11月8日*）

%o（PARI）concat（[0]，Vec（总和（k=1100，x^k/（1-x^（7*k）））+o（x^101））

%Y参见A001227、A001817、A001-826、A001876、A188169。

%Y参考A001620、A016630、A354627（磅/平方英寸（1/7））。

%K nonn，简单

%O 0.9

%A_Ilya Gutkovskiy_，2016年12月5日