login
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).
0
24752, 101972, 14257705
OFFSET
1,1
COMMENTS
a(4) > 10^10.
EXAMPLE
24752 is a term since A334023(24752) = A334023(24753) = 33896.
MATHEMATICA
s[n_] := DivisorSum[n, # &, #^2 > n && CoprimeQ[#, n/#] &]; Select[Range[1.5*10^7], s[#] == s[# + 1] &]
CROSSREFS
KEYWORD
nonn,bref,more
AUTHOR
Amiram Eldar, Apr 12 2020
STATUS
approved