A334022 Numbers k such that s(k) = s(k+1) = s(k+2) = s(k+3), where s(k) is the sum of unitary divisors of k that are smaller than sqrt(k) (A334019).

2, 46351754, 102841142, 158071592, 667930085, 851043553, 1097409992, 1580045430, 1595193655, 1698842487, 1919035496, 1951958341, 2279249234, 2507918727, 2520080695, 2741951910, 3335769314, 3654512455, 3713106152, 4209598844, 4351540982, 4369408604, 4480814965

Offset: 1

Author

Amiram Eldar, Apr 12 2020

Keywords

• nonn

Examples

			2 is a term since A334019(2) = A334019(3) = A334019(4) = 1.
		

Crossrefs

Cf. A325175, A334019, A334020, A334021.

Programs

Mathematica

s[n_] := DivisorSum[n, # &, #^2 < n && CoprimeQ[#, n/#] &]; seq={}; s1 = s[1]; s2 = s[2]; s3 = s[3]; Do[s4 = s[n]; If[s1 == s2 && s2 == s3 && s3 == s4, AppendTo[seq, n - 3]]; s1 = s2; s2 = s3; s3 = s4, {n, 4, 10^9}]; seq