%I#13 2017年3月6日17:34:27

%S 1,1,2,2,1,3,3,35,5,6,10,9,10,17,20,18,31,34,38,52,62,65,98108，

%电话：113160190204271322352448533572757863956120814011555，

%电话：1931224224993930343527393847725529610873688524947811301

%N N的分区数，使得各部分的平方和为平方。

%H Charles R Greathouse IV，<a href=“/A240127/b240127.txt”>n，a（n）表，n=1..100</a>

%e a（12）计算这6个分区：[12]、[5,2,2,1,1,1]、[4,4,1,1,1]、[3,3,3,1]、[2,2,1,1,1,1,1,1,1]。

%t f[x_]：=x^（1/2）；z=26；ColumnForm[t=Map[Select[Integer partitions[#]，IntegerQ[f[Total[#^2]]&]&，Range[z]]（*显示分区*）

%t t2=地图[Length[Select[Integer Partitions[#]，IntegerQ[f[Total[#^2]]&]]&，Range[40]]（*A240127*）（*_Peter J.C.Moses_，2014年4月1日*）

%o（PARI）a（n）=我的；对于部分（v=n，s+=发行方（总和（i=1，#v，v[i]^2））；2017年3月6日，夏尔斯R Greathouse IV

%Y参考A240128。

%K非n

%O 1,4型

%A_Clark Kimberling_，2014年4月2日