OFFSET
1,2
COMMENTS
Every positive integer occurs once and only once somewhere in this sequence.
LINKS
EXAMPLE
d(6)-1 = 3 and the 3rd-highest positive integer not equal to 1, 2, 3, 5, or 4 (the values of a(k) for 1 <= k < 6) is 8.
MATHEMATICA
With[{nn = 72}, Fold[Append[#1, Complement[Range[#2 + Ceiling[nn/6]], #1][[DivisorSigma[0, #2] - 1]]] &, {1}, Range[2, nn]]] (* Michael De Vlieger, Dec 11 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 29 2001
STATUS
approved