A333954 Numbers k such that A330575(k) = A330575(k+1).
14, 16101, 72926, 97101, 2872701, 7610324
Offset: 1
Examples
14 is a term since A330575(14) = A330575(15) = 26.
Links
- Thomas Fink, Recursively divisible numbers, arXiv:1912.07979 [math.NT], 2019.
Programs
-
Mathematica
s[1] = 1; s[n_] := s[n] = n + DivisorSum[n, s[#] &, # < n &]; seq = {}; s1 = s[1]; Do[s2 = s[n]; If[s1 == s2, AppendTo[seq, n-1]]; s1 = s2, {n, 2, 10^5}]; seq
Comments