A080354 First differences of A080353.

2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1

Offset: 0

Author

N. J. A. Sloane, Mar 20 2003

Keywords

• nonn

Programs

Mathematica

Most[Table[#,3]&/@Table[PadRight[{2},n,1],{n,10}]//Flatten] (* Harvey P. Dale, Dec 08 2019 *)

Formula

Runs are 2^2, (2 1)^3, (2 1 1)^3, (2 1 1 1)^3, ...