%I #13 Mar 15 2024 05:43:56
%S -1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,1,-1,-1,-1,-1,-1,1,-1,1,-1,-1,-1,1,
%T -1,-1,-1,0,-1,1,-1,-1,-1,-1,-1,1,-1,-1,-1,1,-1,1,-1,-1,-1,-1,-1,1,-1,
%U -1,-1,-1,-1,1,-1,1,-1,-1,-1,1,-1,-1,-1,-1,-1,1,-1,-1,-1,1,-1,1,-1
%N Denote sigma(n)-n by s(n); a(n)=1 if s(n)>n, a(n)=0 if s(n)=n, a(n)=-1 if s(n)<n.
%H Antti Karttunen, <a href="/A082551/b082551.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = sign(A033880(n)).
%p A082551 := proc(n)
%p signum( numtheory[sigma](n)-2*n) ;
%p end proc: # _R. J. Mathar_, Sep 28 2011
%t Table[Sign[DivisorSigma[1, n] - 2*n], {n, 1, 100}] (* _Amiram Eldar_, Mar 15 2024 *)
%o (PARI) A082551(n) = sign(sigma(n)-(2*n)); \\ _Antti Karttunen_, Sep 28 2018
%Y Cf. A000203, A001065, A033879, A033880, A060862, A294934, A294935, A294936, A294937.
%K easy,sign
%O 1,1
%A Hanoch M. bin (hanochb(AT)shiron.com), May 12 2003
|