%I#10 2017年12月23日04:19:55

%第1、2、2、5、3、7、4、4、5、15、13、7、5、17、6、7、11、23、7、13、8、29、7段，

%电话31,8,11,17,8,8,3,7,19,13,9,41,9,43,11,10,23,47,10,9,11,17,13,53,10,12，

%U 10、19、29、59、11、61、31、11、13、12、67、17、23、12、71、12、73、37、15、19、13、14、79

%N积分矩形对角线长度的整数部分，面积N，最小半周长。

%C n≤a（n）；对于n>1，a（n）=n当f为素数。

%F a（n）=楼层（sqrt（A033676（n）^2+A033677（n）*2））。

%t表[Floor@Sqrt@Total@Map[#^2&，If[IntegerQ@#，{#，#}，{Last@#1，First@#2}&@@TakeDrop[#，LengthWhile[#，#<=Sqrt@n&]]&@Divisors@n]&@Sqrt@n]，{n，79}]（*Michael De Vlieger_，2017年12月22日*）

%Y参考A033676、A033677、A063655。

%K非n

%O 1,2号机组

%A _Reinhard Zumkeller，2003年2月11日