OFFSET
1,1
COMMENTS
These terms, the 1-sigma-balanced numbers, seems to be significantly rarer than those with d=2,4,6,8,10.. It seems also that the 6-sigma-balanced numbers are very common.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..91 (terms < 4*10^12)
FORMULA
Solutions to sigma(x-d)+sigma(x+d)=2*sigma(x) where d=1.
EXAMPLE
n=20291271, a=sigma(n-1)=37374480, b=sigma(n+1)=38104560, sigma(n)=37739520=(a+b)/2.
MATHEMATICA
d=1; Do[s=(DivisorSigma[1, n+d]+DivisorSigma[1, n-d])/ 2-DivisorSigma[1, n]; If[Equal[s, 0], Print[n]], {n, 1, 100000000}]
PROG
(PARI) is(n) = n>1 && (sigma(n-1)+sigma(n+1))/2==sigma(n) \\ Felix Fröhlich, Sep 03 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 26 2004
EXTENSIONS
a(10)-a(22) from Donovan Johnson, Feb 01 2009
STATUS
approved