%I#16 2019年2月1日20:38:37

%S 1,1,2,1,2,1,1,3,2,1,4,1,2,3,4,1,4,1,1,4,3,2,6,2,3,1,5,1,5,3,2，

%温度3,7,1,2,3,6,1,5,1,4,5,2,1,8,2,4,3,4,1,6,6,3,2,1,9,1,2,5,6,5,1.4，

%U 3,6,1,10,1,2,5,4,3,5,1,8,4,2,1,9,3,3,61,9,4,4,2,3,10,14,5,7,15,1,6

%N a（N）=N的正因子数，小于等于phi（N），其中phi（N）=A000010（N）。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%φ（16）=8。所以a（16）是16的除数，小于等于8。有4个这样的除数：1、2、4、8；因此a（16）=4。

%p with（numtheory）：a:=proc（n）local div，ct，j:div:=除数（n）：ct:=0:对于j from 1 to tau（n）do，如果div[j]<=phi（n），那么ct:=ct+1，否则ct:=ct:fiod:ct；结束：序列（a（n），n=1..135）；#_Emeric Deutsch，2007年3月31日

%t表[长度[Select[Divisors[n]，#<=EulerPhi[n]&]]，{n，104}]（*_Jayanta Basu_，2013年5月23日*）

%o（PARI）a（n）=我的（p=eulerphi（n））#select（k->k<=p，除数（n））\\查尔斯·格里特豪斯IV，2013年3月5日

%Y参考A129139、A126131、A074919。

%K nonn公司

%O 1,4型

%A _罗伊查询，2007年3月30日

%E更多术语摘自德国电子报，2007年3月31日