%I#13 2019年3月20日04:25:55
%S 2,4,6,12,15,16,20,30,35,36,42,48,56,88,99112120126130135143,
%电话:14416016218019221021622022122823123142250256270275280,
%电话:28829730030832233033836039640040842943544044393
%N个数>1,可被其素数指数之和整除。
%C n的素数指数是一个数m,素数(m)除以n。n的多素数指数集是A112798的第n行。n的素数指数之和为A056239(n)。例如,99的素数指数是{2,2,5},和是9,除数是99,所以99在序列中。
%对于任意k>=2,设d是k的除数,使得d>A056239(k)。那么2^(d-A056239(k))*k在序列中。类似地,如果k在d=A056239(k)的序列中,则2^d*k在序列中_罗伯特·伊斯雷尔,2019年3月19日
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%e术语序列及其基本指数开始于:
%e2:{1}
%e 4:{1,1}
%e 6:{1,2}
%e 12:{1,1,2}
%e 15:{2,3}
%e 16:{1,1,1,1}
%e 20:{1,1,3}
%e 30:{1,2,3}
%e 35:{3,4}
%e 36:{1,1,2,2}
%e 42:{1,2,4}
%e 48:{1,1,1,1,2}
%e 56:{1,1,4}
%e 88:{1,1,5}
%e 99:{2,2,5}
%e 112:{1,1,1,1,4}
%e 120:{1,1,2,3}
%e 126:{1、2、2、4}
%e 130:{1,3,6}
%e 135:{2,2,3}
%p过滤器:=proc(n)局部t;n mod add(数字理论:-pi(t[1])*t[2],t=ifactors(n)[2])=0结束进程:
%p选择(过滤器,[1..1000]);#_罗伯特·伊斯雷尔,2019年3月19日
%t选择[Range[2100],Divisible[#,Plus@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]*k]]&]
%o(PARI)isok(n)={my(f=因子(n));(n!=1)&&
%Y参见A003963、A036844、A056239、A112798、A120383、A290822、A306844。
%Y请参阅A324695、A324741、A32474 3、A324847、A324756、A324458、A324765、A324 847、A4848、A324 84、A324850、A324 852。
%K nonn公司
%O 1,1号机组
%A _古斯·维塞曼_,2019年3月18日