检验过的

经核准的

提出

检验过的

编辑

提出

t[n_]:=_] :=t[n（吨）]=] =选择[Divisors[n], #^], #^2<=<=n&]；

A368207型【n】_]:=_] :=总和[（1++布尔[d^2<<n] ）（二维--1） ，{d,,t[n（吨）]}]+]}] +总和[If[wx<<年*周,,最大值[1,,2（布尔[w^2<<wx（宽x）]+] +布尔[y^2<<n-wx（n-wx）])],])],0], {], {wx（宽x）,,楼层[n/2]}，{w,,t[宽x]}, {]}, {年,,t[n--wx]}]；

阵列[A368207型,,100] (*保罗·沙萨2024年1月2日,之后_彼得 卢什尼_ *)*)

提出

编辑

彼得·卢什尼：我只加了几个空格，因为我认为这样可以提高可读性。整洁的实施！

编辑

提出

A368207型[n]：=总和[（1+Boole[d^2<n]）（2d-1），{d，t[n]}]+总和[如果[wx<y*w，Max[1，2（Boole[w^2<wx]+Boole[y^2<n-wx]）]，0]，{wx，Floor[n/2]}，{w，t[k个wx（宽x）]}，{y，t[n-k个wx（宽x）]}];

A368207型[n_]：=总和[（1+Boole[d^2<n]）（2d-1），{d，t[n]}]+总和[If[k个wx（宽x）<y*w，Max[1,2（布尔[w^2<k个wx（宽x）]+布尔[y^2<n-k个wx（宽x）])], 0], {k个wx（宽x），楼层[n/2]}，{w，t[k]}，{y，t[n-k]}]；

阵列[A368207型, 100] (*保罗·沙萨2024年1月2日*),之后_彼得 卢什尼_ *)

t[n_]：=t[n]=选择[Divisors[n]，#^2<=n&]；

A368207型[n]：=求和[（1+Boole[d^2<n]）（2d-1），{d，t[n]}]+求和[如果[k<y*w，Max[1，2（Boole[w^2<k]+Boole[y^2<n-k]）]，0]，{k，Floor[n/2]}，{w，t[k]}、{y，t[n-k]}]；

阵列[A368207型, 100] (*保罗·沙萨2024年1月2日*）

经核准的

编辑

编辑

经核准的

囊性纤维变性。A000203号,A071561号,A368276型,(单调的),A368341飞机,(固定的 点),A368457型.,A368458型(半素数),A368580型(退化的).

经核准的

编辑