A324255 Lesser of super amicable pair m < n defined by sigma(sigma(m)) = sigma(sigma(n)) = m + n.

23, 14999, 34673, 55373, 2056961, 2458187, 4586987, 5174363, 6204767, 15788453, 20699927, 22239647, 25748273, 43428947, 53636627, 74005637, 92626307, 132253139, 134131379, 158486747, 167677187, 183614987, 307412933, 385042487, 413859143, 418168343, 683772017

Offset: 1

Author

Amiram Eldar, Feb 19 2019

Keywords

• nonn

Comments

The larger numbers in each pair are in A324256.

Analogous to A002025 as A019279 is analogous to A000396.

Examples

			(23, 37) are the first pair since sigma(sigma(23)) = sigma(sigma(37)) = 60 = 23 + 37.
		

Crossrefs

Cf. A000203, A000396, A002025, A019279, A045613 (unitary analog), A051027, A324256.

Programs

Mathematica

seq={}; s[n_]:=DivisorSigma[1,DivisorSigma[1,n]]-n; Do[m=s[n];If[m>n && s[m]==n, AppendTo[seq, n]], {n,1,60000}]; seq

PARI

f(n) = sigma(sigma(n)) - n;
lista(nn) = {for (n=1, nn, my(fn = f(n)); if ((fn > n) && (f(fn) == n), print1(n, ", ")););} \\ Michel Marcus, Feb 20 2019