A390506 - OEIS

%I #8 Dec 10 2025 15:50:22

%S 2,2,3,4,4,3,3,5,6,5,5,6,5,3,4,5,7,6,7,8,7,5,5,7,8,7,6,7,5,4,4,6,7,6,

%T 8,9,8,6,7,9,10,9,8,9,7,6,6,7,9,8,9,10,9,7,6,8,9,8,6,7,6,4,4,6,8,7,8,

%U 9,8,6,8,10,11,10,9,10,8,7,8,9,11,10,11

%N a(n) = length of A390505(n).

%C a(n) = length of n-th word in the Example in A390508.

%e A390505(20) = 10111011, so a(20) = 8.

%t f[w_] := StringJoin[Map[IntegerString[Length[#], 2] <> ToString[#[[1]]] &, Split[Characters[w]]]];

%t s[n_] := Map[StringJoin[Map[ToString, Rest[IntegerDigits[#, 2]]]] &, Range[2, 2^(n + 1) - 1]];

%t m = Map[f, s[5]] (* A390505 *)

%t m1 = ToExpression /@ Characters /@ m;

%t Map[Length, m1] (* A390506 *)

%t (* _Peter J. C. Moses_, Nov 05 2025 *)

%Y Cf. A390505, A390508.

%K nonn

%O 1,1

%A _Clark Kimberling_, Dec 02 2025