%I#15 2020年3月14日20:02:19
%序号8,12,20,30,32,44,48,50,54,64,66,68,72,75,80,81,92,96102108110112,
%电话116120125128138160162164165168170174180188192208212,
%电话:23023624024224324625225270275280282284288290304
%N对N进行编号,使N的素除数(以重数计算)不是φ(N)的除数。
%如果A001222(n)不除以A000010(n),则C a(n)为序列。
%H Enrique Pérez Herrero,n的表,n=1..10000的a(n)</a>
%t选择[Range[2400],Mod[EulerPhi[#],PrimeOmega[#]]=0&](*哈维·P·戴尔,2020年3月14日*)
%o(PARI)isok(n)=(eulerphi(n)%bigomega(n));\\_米歇尔·马库斯(Michel Marcus),2013年8月27日
%Y参见A074946、A109421、A109428、A013929。
%K nonn公司
%O 1,1号机组
%A _Enrique Pérez Herrero_,2010年9月4日
|