OFFSET
1,2
LINKS
Michel Marcus, Table of n, a(n) for n = 1..5000
MATHEMATICA
a[1] = 1; a[n_] := a[n] = (For[m = a[n - 1] + 1, DivisorSigma[0, m] != DivisorSigma[0, m - a[n - 1]], m++]; m); Table[a[n], {n, 57}] (* Farideh Firoozbakht, May 28 2009 *)
PROG
(PARI) lista(nn) = {k = 1; print1(k, ", "); last = k; for (n=2, nn, k = last+1; while(numdiv(k) != numdiv(k - last), k++); print1(k, ", "); s += k; last = k; ); } \\ Michel Marcus, Sep 05 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, May 24 2009
EXTENSIONS
More terms from Farideh Firoozbakht, May 28 2009
STATUS
approved