OFFSET
1,1
COMMENTS
Does this sequence contain every positive integer exactly once?
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Delete[#, 3] &@ Nest[Append[#1, If[FreeQ[#1, #2], #2, 4 #3]] & @@ {#, Floor[#[[-1]]/2], Length@ #} &, {2}, 59] (* Michael De Vlieger, Oct 06 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved