OFFSET
1,1
COMMENTS
LINKS
S. I. Dimitrov, Table of n, a(n) for n = 1..1000
MATHEMATICA
psi[n_] := n * Times @@ (1 + 1/FactorInteger[n][[;; , 1]]); psi[1] = 1; t[n_] := psi[n] - n; seq[max_] := Module[{s = {}, n}, Do[n = t[m]; If[n > m && t[n] == m, AppendTo[s, LCM[n, m]]], {m, 1, max}]; s]; seq[100000] (* Amiram Eldar, Sep 23 2025 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
S. I. Dimitrov, Sep 23 2025
STATUS
approved
