

A015630


Augmented amicable pairs (larger member of each pair).


8



11697, 16005, 28917, 76245, 339825, 570405, 871585, 697851, 678376, 1340865, 2067625, 1823925, 1483785, 1899261, 2479065, 2580105, 4895241, 4740505, 5736445, 3171556, 4791916, 6516237, 4416976, 7524525, 9868075, 7589745
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Let f(n) = 1 + sum of aliquot divisors of n; these are pairs (n,m) with f(n)=m, f(m)=n.
The terms of the sequence are sorted in the order of the smaller (omitted) member of each pair. [Harvey P. Dale, Feb 29 2012]


LINKS



MATHEMATICA

aap[n_]:=Module[{p=Total[Most[Divisors[n]]]+1}, If[p!=n&&n==Total[Most[ Divisors[p]]]+1, {p, n}, 0]]; Transpose[Union[Sort/@DeleteCases[aap/@ Range[10000000], 0]]][[2]] (* Harvey P. Dale, Feb 29 2012 *)


CROSSREFS



KEYWORD

nonn,nice


AUTHOR



STATUS

approved



