%I#19 2021年2月24日03:50:39

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

%10、10、10、10、10、11、11、12、12、12、12、13、13、13、13、14、14，

%U 15,15,15,15、15,16、16,17,17,17、17,18、18,19、19,19、20,21,21

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

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

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

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

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

%o（PARI）

%o n=80；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]%3==0）；

%o打印（a）；\\_Gheorghe Coserea，2015年8月22日

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

%K nonn公司

%O 1,5型

%A _Reinhard Zumkeller，2002年7月8日

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