|
|
A180202
|
|
The product of the two numbers in an amicable pair, A002025(n) * A002046(n).
|
|
4
|
|
|
62480, 1432640, 7660880, 27931280, 39685376, 116636864, 179299575, 318523136, 4794813680, 4483640576, 4773473775, 6100571295, 7076217500, 12475715175, 17094480975, 15069863936, 21699524864, 24011966300, 30304399616
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This sequence initially shares many terms with A180163 because small amicable pairs are sometimes consecutive terms in the sorted list of amicable numbers, A063990.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
s[n_] := DivisorSigma[1, n]-n; smallAmicableQ[n_] := Module[{b=s[n]}, n<b && s[b]==n]; a=Select[Range[10^6], smallAmicableQ]; Table[n*s[n], {n, a}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|