A175059 - OEIS

%I #14 Oct 30 2021 04:59:17

%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>

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</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