#来自在线整数序列百科全书的问候!1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1自由多边形数,n) 当s>=3且n>=3. %C A324972时,此序列的主条目为A090466=大于2的多边形序号(或秩);%C A324972特殊多边形数A324973构成一个子序列,其中包含所有卡迈克尔编号A002997。见Kellner和Sondow 2019。 %H A324972 Bernd C.Kellner和Jonathan Sondow,关于Carmichael数和多边形数、Bernoulli多项式和base-p位数和,arXiv:1902.10672[math.NT],2019年。 %H A324972维基百科,多边形数%F A324972无平方自由P(s,n)=(n^2*(s-2)-n*(s-4))/2的s>=3,n>=3.3. %e A324972 P(3,3)=6即是无平方自由,所以a(1)=6。 %t A324972 mx=250;n=s=3=3;lst={};;%t A324972当[s<地板[mx/3]+2+2,a=(n^2(s-2)-n(s-4)))/2;2;;%t A324972 A324972 MX250;n=s=3=3]+2]+2,a=(n^2(s-2)-n(s-4)n(s-4))2如果[a<mx+1,附加到[lst,a],(s++;n=2)];n++];lst=Union@lst;%t A324972 Select[lst,SquareFreeQ] %o A324972(PARI)isok(n)=如果(!issquarefree(n),return(0));for(s=3,n\3+1,ispolygonal(n,s)&&return(s));\\\\u Michel Marcus_,2019年3月24日;%Y A324972 A324972 A005117与A090466的交叉口。 %Y A324972包括A324973,其中包含A002997的A002997。;%K A324972 nonn;%O A324972 1,1,;%A A324972 1,1;%A A324972%A A324972 UBernd C.Kellner U和(U乔纳森乔纳森)乔纳森·乔纳森·乔纳森·乔纳森·乔纳森·乔纳森·乔纳森·乌尔,2019年3月21日 #内容根据OEIS最终用户许可协议提供:http://OEIS.org/License