%I#15 2018年8月5日12:23:01

%S 0,1,1,0,1,2,1,1,1,2,1,1,1,1,2,0,1,1,1,1,2,2,2,1,1,2,0,1,1,2,0,1,1,1,1,3,1,2,2，

%温度2,0,1,2,2,2,1,3,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,2,2,1,2,1,2,2,2,3,1,1，

%U 2,3,1,0,1,2,2,1,2,2,3,1,1,2,1,2,2,2,2,2,2,1,1,2,2,2,2,1,2,0,1,3,1,2,3

%N与N互素的N的素因式分解中的指数个数。

%H Antti Karttunen，n表，n=1..65537的a（n）</a>

%e 8000=2^6*5^3。6不是8000的互质，但3是。所以a（8000）=1。

%t表[Length[Select[Table[FactorInteger[n][[i，2]]，{i，1，Length[CFactorIntiger[n]]}]，GCD[#，n]==1&]]，{n，2，90}]（*_Stefan Steinerberger_2007年12月21日*）

%t连接[{0}，表[Count[FactorInteger[n][[All，2]]，_？（互质Q[#，n]&）]，{n，2110}]]（*哈维·P·戴尔，2018年8月5日*）

%o（PARI）A136177（n）={局部（t）；总和（j=1，#t=因子（n）[，2]~，gcd（n，t[j]）==1）}\\_M.F.哈斯勒，2007年12月21日

%Y参考A136176。

%K nonn，简单

%O 1,6型

%A _罗伊查询，2007年12月19日

%E更多条款，来自M.F.Hasler_和_Stefan Steinerberger_，2007年12月21日