OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Transpose[Select[Partition[Range[1010], 3, 1], DivisorSigma[0, First[#]] == DivisorSigma[0, Last[#]] + DivisorSigma[0, #[[2]]]&]][[1]] (* Amiram Eldar, Jul 17 2019 after Harvey P. Dale at A175116 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 11 2008
EXTENSIONS
Extended by Ray Chandler, Oct 27 2008
STATUS
approved