%I#13 2017年3月9日10:10:50

%S 0,0,0,12,0，-6,0,36,0,24,0,6,0，-24,60,18，

%温度0,18,0150，-20，-42,0120.0，-42，-10,72,0,42,0，-12,60，-48,0264,0,0，

%U-30,0,0216,0132、-30、-78,0138,0、-72120540,0,0、-30，-30,24,0462,0、-96,60、-18,0,24,0330420、-114,0246

%N a（N）=A003961（N）-A250469（N）。

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

%F a（n）=A003961（n）-A250469（n）。

%t f[n_]：=f[n]=其中[n==1，1，PrimeQ@n，NextPrime@n，True，Times@@Replace[FactorInteger[n]，{p_，e_}:>f[p]^e，1]]；g[n_]：=如果[n==1，0，PrimePi@FactorInteger[n][[1，1]]]；函数[s，MapIndexed[Function[｛m，n｝，f@n-Lookup[s，g[n]+1][[m]]+Boole[n==1]][#1，First@2]&，#]&@Map[Position[Lookup[s，g@#]，#][1，1]]&，Range@120]]@位置索引@数组[g，10^4]]（*_Michael De Vlieger_，2017年3月9日，版本10*）

%o（方案）（定义（A280692 n）（-（A003961 n）（A250469 n））

%Y参见A003961、A250469、A249820、A280492、A28049、A28048、A280702。

%Y参考A280693（给出零的位置）。

%Y Cf.还数组A083221和A246278。

%K符号

%O 1.8个

%2017年3月8日，安蒂·卡图内