A067803 Numbers n such that sigma(n)-sigma(n+1)=n.
532, 954, 104944, 918080, 10368512, 25316030960, 35053995440, 45883878740
Offset: 1
Keywords
Crossrefs
Cf. A223136.
Extensions
a(4)-a(8) from Donovan Johnson, Feb 01 2009
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
With[{m = 200000}, 1 + Position[Differences[DivisorSigma[1, Range[m]]]/Range[2, m], ?IntegerQ] // Flatten] (* _Amiram Eldar, Dec 31 2024 *)
list(lim) = {my(s1 = 1, s2); for(k = 2, lim, s2 = sigma(k); if(!((s2-s1) % k), print1(k, ", ")); s1 = s2);} \\ Amiram Eldar, Dec 31 2024
Comments