A075767 - OEIS

A075767

Least m such that A(m) = -10^n, where A(n) = sigma(n) - 2n, the abundance of n.

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

Jason Earls, Oct 09 2002

EXTENSIONS

More terms from Ryan Propper, Oct 01 2006

a(10)-a(13) from Hiroaki Yamanouchi, Aug 24 2018

STATUS

approved