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
Keywords
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, ...
Comments