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