#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a072749 显示1-1的1 ;%I a072749;%S a072749 0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,10,10,10,10,11,11,11,11,11,12,12,12,12,13,13,13,13,13,13,13,13,13,13,14,14,14,14,14,14,14,14,14,14,14,14,14前n个无平方数。 %H A072749 Gheorghe Coserea,n=1..10000的n,a(n)表%A072749 e A072749 e A072749首批10平方自由数为:1,2,3,5,6=2*3,7,10=2*5,11,13和14=2*7:5和10可被5整除:5和10可被5整除,因此a(10)=2。;%t A072749积累[如果[可除[#,5,5],1,0]&/@Select[范围[150],1,0]&/@Select[Rang[150],SquareFreeQ]]](*[哈维P.Dale_年10月17日*);%o A072749(巴黎);%o A072749(巴黎);%o A072749 n=89;k=0 0 0 0 0 0 0 0 0 0 0 0 0;bag=List();a=向量(n);%o A072749到(n==0,k++;if(IsSquareRefee(k),listput(bag,k;k);n—));;(o A072749为(i=2,包,a[i]=a[i-1]+(bag[i-1]+(bag[i]]%5==0 0 0));;;;%o A072749打印(a);\\\geheorghe Coserea_,2015年8月22日;%Y A072749 Cf.A005117,A072747,A072748,A072748,A072750,A072750,A0727575757575757575757575757572749.2015年8年8月22日,2010 1.A072749无,2002年7月8日 %E A072749名称由 Gheorghe Coserea澄清,2015年8月22日 %E A072749名称由 Gheorghe Coserea 22