OFFSET
1,2
COMMENTS
a(24) > 1400000000. - Robert G. Wilson v, Jun 06 2008
If n-1 >= d(a(n-1)), then d(a(n)) must be n-1 + d(a(n-1)).
LINKS
Ray Chandler, Table of n, a(n) for n=1..89
MAPLE
A139695 := proc(n) option remember ; local a, aprev; if n = 1 then 1; else aprev := A139695(n-1) ; for a from aprev+1 do if abs(numtheory[tau](a)-numtheory[tau](aprev)) = n-1 then RETURN(a) ; fi ; od: fi ; end: for n from 1 do print(A139695(n)) ; od: # R. J. Mathar, May 04 2008
MATHEMATICA
f[1] = 1; f[n_] := f[n] = Block[{da = DivisorSigma[0, f[n - 1]], k = f[n - 1] + 1}, While[ Abs[ DivisorSigma[0, k] - da] + 1 != n, k++; m = k]; k]; Do[ Print[{n, f@n}], {n, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 29 2008, Jun 14 2008
EXTENSIONS
a(10)-a(20) from R. J. Mathar, May 04 2008
a(21)-a(23) from Robert G. Wilson v, Jun 05 2008
a(24)-a(27) from Ray Chandler, Jul 08 2009
STATUS
approved