%I#33 2017年12月1日01:22:42

%第34,7410013020224429039445251450724802970106011541354页，

%电话14601570180219242050231425225942890304432023364353530，

%电话：3700387442344420461055002520454105834605274673069647202769079408714898092509802100841030109541115541217012484128021345013780

%N数N，这样正好有一个非平凡的正方形N角数。

%C有无限多的三角形、五边形、六边形等正方形。此外，没有大于1的10角数、20角数、52角数、64角数等正方形（参见A188896）。除了平凡的n次方数0和1之外，还有一个34次方数，一个74次方数、一个100次方数和一个130次方数等。

%H Muniru A Asiru，n的表格，n=1..238的A（n）</a>

%e当n=34时，34-gonal数的平方为0，1，196。

%e当n=74时，74-gonal数的平方为0，1，2601。

%e对于n=100，正方形100-正方形数为0、1、100。

%o（间隙）

%o G：=[]；；对于[5..10000]中的g，对[1..5000]中的r执行do，如果2*g-4=r^2，则执行Add（g，g）；fi；od；od；G；长度（G）；

%o F:=列表（G，G->[G，除数Int（（G-4）^2）]）；；

%o N:=列表（[1..长度（F）]，i->列表（[1.长度（F[i][2]；；

%o N1:=过滤（列表（列表（[1..Length（N）]，k->过滤（N[k]，l->IsPosInt（l[2]））），集合），o->长度（o）>=2）；

%o N2:=设置（平面（列表（[1..长度（N1）]，i->列表（[1.长度（N1[i]）]，j->N1[i][j][1]）））；

%Y参考A005893、A188896、A271624。

%K nonn公司

%O 1,1号机组

%A _Muniru A Asiru，2016年10月16日