%I#13 2017年10月1日12:57:41

%S 0,1,1，-1,1,5,1，-1，-1,7,1,12,1,9,8,1,1,1,17,10,13,1,26，-1,15,11，

%T 22,1,32,1，-1,14,19,12，-1,1,21,16,37,1,42,1,32,27,25,1,54，-1，-1,20,37，

%U 1,51,16,48,22,31,1,76,1,33,34，-1,18,62,1,47,26,60,1，-1,1,39,42,52,18,72,1,77，-1,43,1

%N如果sigma（N）-phi（N）是偶数，则为（sigma-φ（N））/2，否则为-1。

%C a（n）=1当且仅当n是素数_罗伯特·伊斯雷尔，2017年9月28日

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%p f:=proc（n）局部v；

%p v：=数值理论：-σ（n）-数值理论：-phi（n；

%p如果v:：即使v/2 else-1 fi

%p端程序：

%p映射（f，[1..100]美元）；#_罗伯特·伊斯雷尔，2017年9月28日

%Y参见A051612、A000010、A000203、A292770。

%K符号

%O 1,6型

%A _N.J.A.Sloane，2017年9月28日