%I#12 2022年10月13日04:05:57

%S 1,2,2,3,2,4,4,3,4,2,6,6,4,5,2,6,1,6,6,1,4,2,8,3,4，9,2,8,2,6,4，

%温度7,9,2,4,4,12,3,12,6,7,4,2,12,5,6,4,6,2,8,5,12,4,2,26,4,9,7,4],8，

%U 2,6、4、14、2、12、2、4、6、6、8、2、24、5、6、2、22

%根平方为整数的N的除数的非空子集的数目。

%H Alois P.Heinz，n的表格，n=1..1000时的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Root-Mean-Square.html“>根平均平方</a>

%H<a href=“/index/Di#divisors”>与数字除数相关的序列的索引项</a>

%e a（14）=6个子集：{1}、{2}、{7}、{14}、{1，7}和{2，14}。

%p a：=proc（n）选项记住；使用数字理论；局部l，b；

%p l，b:=排序（[除数（n）[]]），

%p proc（i，s，c）选项记忆；

%p`if`（i=0，`if`）（c>0和issqr（s/c），1，0），

%pb（i-1，s，c）+b（i-1、s+l[i]^2，c+1））

%p端；忘记（b）；b（无（1），0美元2）

%p端：

%p序列（a（n），n=1..100）；#_阿洛伊斯·海因茨，2022年9月30日

%t a[n_]：=a[n]=模[{b，l=除数[n]}，b[i_，s_，c]：=b[i，s，c]=如果[i==0，如果[c>0&&IntegerQ@Sqrt[s/c]，1，0]，b[i-1，s，c:+b[i-l，s+l[i]]^2，c+1]]；b[长度[l]，0，0]]；

%t表[a[n]，{n，1100}]（*_Jean-François Alcover_，2022年10月13日，在_Alois P.Heinz_*之后）

%Y参见A027750、A100587、A339454、A339663、A33966、A3396.65。

%K nonn公司

%O 1,2号机组

%A _Ilya Gutkovskiy_，2020年12月11日