OFFSET
1,2
COMMENTS
This is a permutation of the positive integers. Sequence A175060 is its inverse permutation.
LINKS
MATHEMATICA
Map[FromDigits[#, 2] &@ Flatten@ # &, Select[Array[Split@ IntegerDigits[#, 2] &, 400], FreeQ[#, {1}] &] /. w_List /; First@ w == 1 :> Most@ w] (* Michael De Vlieger, Sep 03 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Dec 08 2009
EXTENSIONS
Extended by Ray Chandler, Dec 18 2009
STATUS
approved