A324367 Numbers k such that s(k) = s(k+1) where s(k) is the sum of divisors of k that are larger than sqrt(k) (A238535).

45, 62, 15795, 355022, 14257705, 28856174, 2324581982, 103321586193

Offset: 1

Author

Amiram Eldar, Sep 03 2019

Keywords

• nonn
• more

Comments

a(9) > 2*10^11. - Giovanni Resta, Sep 06 2019

Examples

			45 is in the sequence since A238535(45) = A238535(46) = 69.
		

Crossrefs

Cf. A002961, A064115, A064125, A164522, A164557, A238535, A293183, A306985, A324295.

Programs

Mathematica

s[n_] := DivisorSum[n, # &, # > Sqrt[n] &]; seq={}; s1 = 0; Do[s2 = s[n]; If[s1 == s2, AppendTo[seq, n - 1]]; s1 = s2, {n, 2, 10000}]; seq

Extensions

a(8) from Giovanni Resta, Sep 06 2019