A088742 Run lengths of A088023.

1, 1, 2, 1, 3, 1, 1, 3, 3, 1, 1, 2, 1, 4, 1, 3, 3, 1, 1, 2, 1, 3, 1, 1, 3, 4, 1, 2, 1, 4, 1, 3, 3, 1, 1, 2, 1, 3, 1, 1, 3, 3, 1, 1, 2, 1, 4, 1, 3, 4, 1, 2, 1, 3, 1, 1, 3, 4, 1, 2, 1, 4, 1, 3, 3, 1, 1, 2, 1, 3, 1, 1, 3, 3, 1, 1, 2, 1, 4, 1, 3, 3, 1, 1, 2, 1, 3, 1, 1, 3, 4, 1, 2, 1, 4, 1, 3, 4, 1

Offset

1,3

Links

Paolo Xausa, Table of n, a(n) for n = 1..16385

Mathematica

Map[Length, Split[Nest[Join[#, Range[Length[#]] + Reverse[#]] &, {1}, 8]]] (* or *)
Differences[Select[Range[0, 2^8], JacobiSymbol[-1, #] > 0 &]] (* Paolo Xausa, Sep 25 2025 *)

Crossrefs

First differences of A091072.

Cf. A088023, A088743, A088744.

Sequence in context: A218578 A006346 A244740 * A256435 A367412 A279945

Adjacent sequences: A088739 A088740 A088741 * A088743 A088744 A088745

Keyword

nonn

Author

Gary W. Adamson, Oct 12 2003

Extensions

More terms and better description from Ralf Stephan, Sep 03 2004

Status

approved