A071762 Leftmost 1 is converted to a 2, which then propagates one step at a time until it is rightmost; then it changes to a pair of 1's and the process repeats.

0, 1, 2, 11, 21, 12, 111, 211, 121, 112, 1111, 2111, 1211, 1121, 1112, 11111, 21111, 12111, 11211, 11121, 11112, 111111, 211111, 121111, 112111, 111211, 111121, 111112, 1111111, 2111111, 1211111, 1121111, 1112111, 1111211, 1111121, 1111112

Offset: 0

Author

Allan C. Wechsler, Jun 07 2002

Keywords

• nonn
• easy

Comments

Arises in analysis of Bulgarian solitaire.

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A071761.

Programs

Mathematica

f1[{a_,b_}]:={a,NestList[FromDigits[RotateRight[IntegerDigits[#]]]&, b, IntegerLength[ b]-1]}; Join[{0},f1/@Table[{FromDigits[PadRight[{},n,1]], FromDigits[ PadRight[{2},n,1]]},{n,7}]//Flatten] (* Harvey P. Dale, May 15 2018 *)

Extensions

More terms from Sascha Kurz, Jan 28 2003