OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..569 (terms below 10^10)
MATHEMATICA
f[n_] := Select[Divisors[n], Function[d, CoprimeQ[d, n/d]]]; bsigma[m_] := DivisorSum[m, # &, Last@Intersection[f@#, f[m/#]] == 1 &]; a = {}; bmax = 0; Do[b = bsigma[n]; If[b > bmax, AppendTo[a, n]; bmax = b], {n, 3000}]; a (* after Michael De Vlieger at A188999 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 27 2017
STATUS
approved