1,1

Index entries for sequences related to Recaman's sequence

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} ]

Cf. A005132.

Sequence in context: A122242 A046655 A156357 this_sequence A036463 A167654 A095266

Adjacent sequences: A064366 A064367 A064368 this_sequence A064370 A064371 A064372

easy,nice,nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 26 2001