OFFSET
1,1
COMMENTS
Conjecture: sequence gives odd values only.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Donovan Johnson)
MATHEMATICA
s[n_] := s[n] = DivisorSigma[1, n]; Select[Range[4, 80000], s[#-3] + s[#+3] == s[2*#] &] (* Amiram Eldar, May 03 2025 *)
PROG
(PARI) isok(n) = sigma(n-3)+sigma(n+3) == sigma(2*n); \\ Michel Marcus, Nov 20 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 18 2002
EXTENSIONS
More terms from Michel Marcus, Nov 20 2013
STATUS
approved
