A390506 a(n) = length of A390505(n).

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, 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, 9, 8, 6, 8, 10, 11, 10, 9, 10, 8, 7, 8, 9, 11, 10, 11

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..83.

Example

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

Mathematica

f[w_] := StringJoin[Map[IntegerString[Length[#], 2] <> ToString[#[[1]]] &, Split[Characters[w]]]];
s[n_] := Map[StringJoin[Map[ToString, Rest[IntegerDigits[#, 2]]]] &, Range[2, 2^(n + 1) - 1]];
m = Map[f, s[5]] (* A390505 *)
m1 = ToExpression /@ Characters /@ m;
Map[Length, m1] (* A390506 *)
(* Peter J. C. Moses, Nov 05 2025 *)

Crossrefs

Cf. A390505, A390508.

Sequence in context: A078664 A328388 A325954 * A243503 A069581 A274061

Adjacent sequences: A390503 A390504 A390505 * A390507 A390508 A390509

Keyword

nonn

Author

Clark Kimberling, Dec 02 2025

Status

approved