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,1

Comments

a(4) > 10^10.

Links

Table of n, a(n) for n=1..3.

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

Cf. A064125, A324367, A334020, A334023.

Sequence in context: A216069 A204481 A052356 * A184093 A252639 A252146

Adjacent sequences: A334021 A334022 A334023 * A334025 A334026 A334027

Keyword

nonn,bref,more

Author

Amiram Eldar, Apr 12 2020

Status

approved