STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
proposed
reviewed
editing
proposed
Ivan Neretin, <a href="/A100798/b100798.txt">Table of n, a(n) for n = 1..10000</a>
mx = 22; lst = cnt = ConstantArray[0, mx + 1]; a = {}; Do[k = Min@Select[Range[mx + 1], lst[[#]] <= n && cnt[[#]] < # &]; AppendTo[a, k]; lst[[k]] = n + k + 1; cnt[[k]]++; If[k > mx, Break[]], {n, mx^2}]; a (* Ivan Neretin, Nov 25 2016 *)
approved
editing
_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Dec 05 2004
Extended by _Ray Chandler (rayjchandler(AT)sbcglobal.net), _, Dec 08 2004