|
|
A075767
|
|
Least m such that A(m) = -10^n, where A(n) = sigma(n) - 2n, the abundance of n.
|
|
0
|
|
|
1, 11, 101, 5090, 40028, 182525, 2000006, 44244716, 400000028, 4000000028, 2210000389844, 200000000006, 2157894737114, 160003470403376
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
A[m_] := DivisorSigma[1, m]-2*m; Do[m = 1; While[A[m] != -10^n, m++ ]; Print[m], {n, 0, 9}] (* Ryan Propper, Oct 01 2006 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|