%I#13 2019年10月27日05:10:04

%S 1，2，3，2，5，-1，7，5，7，-3，11，-3，13，5，7，9，17，-15，19，7，11，3，23，-15，9，17，33，

%电话-3,29、-55、31、77、47、-15、45、-89、37、91、79、-45、41、-171、43189、37、47，

%U-351155123373165,53、-655、-47153553191,59、-859,61861233,33839、-1073,676871761、-637,71

%N对于所有N>=2，求和{2<=k<=N，gcd（k，N）>1}a（k）=N.a（1）=1。

%e小于等于12且不与12互素的正整数为2,3,4,6,8,9,10,12。a（12）是这样的：a（2）+a（3）+a。

%t f[n_]：=选择[Range[2，n]，GCD[#，n]>1&]；g[l]：=块[{n=Length[l]+1}，附加[l，n-Plus@@l[[Most[f[n]]]]；Nest[g，{1}，70]（*雷·钱德勒，2006年11月13日*）

%Y参考A124385。

%K符号

%O 1,2号机组

%A _罗伊查询，2006年10月29日

%E由雷·钱德勒于2006年11月13日延期