%I
%S 1,2,3,4,6,7,8,5,12,14,15,16,9,10,11,24,13,28,30,31,32,17,18,19,20,22,
%T 23,48,25,26,27,56,29,60,62,63,64,33,34,35,36,38,39,40,21,44,46,47,96,
%U 49,50,51,52,54,55,112,57,58,59,120,61,124,126,127,128,65,66,67,68,70
%N a(n) = decimal equivalent of {A144795(n) written in binary, and each run of 1's reduced in length by one digit}.
%C This is a permutation of the positive integers. Sequence A175060 is its inverse permutation.
%H Michael De Vlieger, <a href="/A175059/b175059.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%Y Cf. A144795, A175055, A175056, A175057, A175058, A175060.
%K base,nonn
%O 1,2
%A _Leroy Quet_, Dec 08 2009
%E Extended by _Ray Chandler_, Dec 18 2009
