OFFSET
1,1
EXAMPLE
688126 is a term since sequences of elements of the continued fractions of the harmonic means of the divisors of 688126 and 688127, 688126/70281 and 688127/77304, are {9, 1, 3, 1, 3, 1, 2, 9, 1, 1, 6, 8} and {8, 1, 9, 6, 3, 1, 2, 1, 3, 1, 1, 9} respectively, and they are anagrams of each other.
MATHEMATICA
h[n_] := Sort[ContinuedFraction[DivisorSigma[0, n]/DivisorSigma[-1, n]]]; seq[max_] := Module[{s = {}, n = 2, c = 0, h1 = h[1], h2}, While[n < max, h2 = h[n]; If[h1 == h2, AppendTo[s, n - 1]]; h1 = h2; n++]; s]; seq[4*10^7]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 15 2022
STATUS
approved