%I#13 2018年3月20日19:02:00
%S 0,1,1,1,2,1,0,0,2,1,2,1,2,2,1,1,2,1,1,1,2,2,2,2,1,2,0,2,2,
%温度2,2,1,2,2,1,1,1,3,1,2,1,2,1,2,2,1,2,2,2,1,2,2,1,2,1,2,1,0,2,3,1,2,
%U 2,3,1,2,1,2,1,2,2,3,12,0,2,1,3,2,2,2,1,1,3,2,1,3,2,2,2,2,1,2,1,1,2,2,1
%N除以N的素数因子分解中的指数个数。
%H Antti Karttunen,n表,n=1..65537的a(n)</a>
%e 128000=2^10*5^3。10除以128000,但3不等于。因此a(128000)=1。
%t表格[Length[Select[Table[FactorInteger[n][[i,2]],{i,1,Length[CFactorIntiger[n]]}],Mod[n,#]==0&]],{n,1,90}](*_Stefan Steinerberger_2007年12月21日*)
%o(PARI)A136176(n)=总和(j=1,#t=系数(n)[,2]~,!(n%t[j])\\ M.F.Hasler_,2007年12月21日
%Y参考A136177。
%K nonn,简单
%O 1,6型
%A _罗伊查询,2007年12月19日
%E更多条款,来自M.F.Hasler_和_Stefan Steinerberger_,2007年12月21日
|