%I#20 2021年2月24日03:50:17

%S 0,1,1,2,2,3,3,3,1,4,4,4],4,5,5,6,6,7,7,8,8,9,9,10,10,11,11，

%电话11,11,11,12,12,12,13,13,14,14,14],15,15,16,17,18,18,19,19，

%U 19,19,19,20,20,20.20,21,21,212,22,22,23,23,24,25,26,26

%N前N个无平方数中的计数因子2。

%H Gheorghe Coserea，n的表格，n=1..10000的a（n）</a>

%传真（n）~n/3.-_Amiram Eldar，2021年2月24日

%e前10个无平方数是：1、2、3、5、6=2*3、7、10=2*5、11、13和14=2*7：2、6、10和14可以被2整除，因此a（10）=4。

%t累加[If[Divisible[#，2]，1，0]和/@Select[Range[100]，SquareFreeQ]]（*_Wincenzo Librandi_，2015年8月23日*）

%o（PARI）

%o n=77；k=0；bag=列表（）；a=矢量（n）；

%o直到（n==0，k++；如果（issquarefree（k），listput（bag，k））；n——）；

%o表示（i=2，#bag，a[i]=a[i-1]+（bag[i]%2==0））；打印（a）；\\_Gheorghe Coserea，2015年8月22日

%Y参见A005117、A072748、A07274、A072750、A072751。

%K nonn公司

%O 1.5

%A _Reinhard Zumkeller，2002年7月8日

%E名称由Gheorghe Coserea澄清，2015年8月22日