OFFSET
1,1
COMMENTS
The larger counterparts are in A324709.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
EXAMPLE
114 is in the sequence since it is the lesser of the amicable pair (114, 126): tsigma(114) = tsigma(126) = 114 + 126.
MATHEMATICA
f[p_, e_] := If[e == 3, (p^4-1)/(p-1), If[e==6, (p^8-1)/(p^2-1), p^e+1]]; tsigma[1]=1; tsigma[n_]:= Times @@ f @@@ FactorInteger[n]; s[n_] := tsigma[n] - n; seq={}; Do[m=s[n]; If[m>n && s[m]==n, AppendTo[seq, n]] , {n, 1, 700000}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 11 2019
STATUS
approved