OFFSET
2,3
COMMENTS
Terms are mostly positive. At cases when sigma(n) is prime the differences are negative. See A071167.
LINKS
Robert Israel, Table of n, a(n) for n = 2..10000
EXAMPLE
n=12, divisors={1,2,3,4,6,12}, sigma(12)=28, its largest prime factor is 7, so a(12)=12-7=5.
MAPLE
gpf:= n -> max(numtheory:-factorset(n)):
seq(n - gpf(numtheory:-sigma(n)), n=2..100); # Robert Israel, Feb 12 2017
MATHEMATICA
ma[x_] := Part[Reverse[Flatten[FactorInteger[x]]], 2] t=Table[w-ma[DivisorSigma[1, w]], {w, 2, 128}]
PROG
(PARI) a(n)=n-factor(sigma(n))[1, 1] \\ Charles R Greathouse IV, Feb 19 2013
CROSSREFS
KEYWORD
sign
AUTHOR
Labos Elemer, May 15 2002
STATUS
approved