OFFSET
1,2
LINKS
MATHEMATICA
a = {1}; Do[ If[ a[ [ -1 ] ] - n > 0 && Position[ a, a[ [ -1 ] ] - n ] == {}, a = Append[ a, a[ [ -1 ] ] - n ], a = Append[ a, a[ [ -1 ] ] + n ] ], {n, 2, 10^5} ]; b = Sort[ a ]; Do[ k = 1; While[ b[ [ k ] ] != b[ [ k + n ] ], k++ ]; Print[ b[ [ k ] ] ], {n, 1, 13} ]
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Robert G. Wilson v, Sep 26 2001
EXTENSIONS
a(15)-a(35) by Jud McCranie, Dec 21 2019
STATUS
approved