OFFSET
1,1
COMMENTS
The terms are ordered according to the order of their lesser counterparts (A323329).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
psi[n_] := n*Times@@(1+1/Transpose[FactorInteger[n]][[1]]); t[n_]:= psi[n] - n; s={}; Do[n=t[m]; If[n>m && t[n]==m, AppendTo[s, n]], {m, 1, 120000}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jan 11 2019
STATUS
approved