OFFSET
1,1
COMMENTS
a(41) > 10^12. - Donovan Johnson, Sep 02 2013
LINKS
Donovan Johnson, All 433 terms <= 10^12
FORMULA
a(n)=Min{x : d[x]/d[x+1]=n}
EXAMPLE
n = 17: a(17) = 2162688 = m, d(m) = 68, d(m+1) = 4, quotient = 17.
MATHEMATICA
t = Table[ 0, {50}]; Do[ s = DivisorSigma[0, n] / DivisorSigma[0, n+1]; If[ s < 51 && t[[s]] == 0, t[[s]] = n], {n, 1, 45000000}]; t
PROG
(PARI) {a(n) = my(k=1); while(numdiv(k)!=n*numdiv(k+1), k++); k} \\ Seiichi Manyama, Jan 17 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Feb 24 2003
EXTENSIONS
More terms from Robert G. Wilson v, Feb 27 2003
a(23), a(29) and a(31) from Donovan Johnson, Jun 02 2010
a(37), a(39)-a(40) from Donovan Johnson, Sep 02 2013
STATUS
approved