OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
EXAMPLE
5 is a term since the average of the unitary divisors of 5 is (1 + 5)/2 = 3, and the average of the unitary divisors of 6 is (1 + 2 + 3 + 6)/4 = 3.
44 is a term since the average of the unitary divisors of 44 is (1 + 4 + 11 + 44)/4 = 15, and the average of the unitary divisors of 45 is (1 + 5 + 9 + 45)/4 = 15.
MATHEMATICA
m[1] = 1; m[n_] := (Times @@ (1 + Power @@@ (f = FactorInteger[n])))/2^Length[f]; Select[Range[10^5], m[#] == m[# + 1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 11 2021
STATUS
approved