A334024 Numbers k such that s(k) = s(k+1), where s(k) is the sum of unitary divisors of k that are larger than sqrt(k) (A334023).
24752, 101972, 14257705
Offset: 1
Examples
24752 is a term since A334023(24752) = A334023(24753) = 33896.
Programs
-
Mathematica
s[n_] := DivisorSum[n, # &, #^2 > n && CoprimeQ[#, n/#] &]; Select[Range[1.5*10^7], s[#] == s[# + 1] &]
Comments