OFFSET
0,3
COMMENTS
Arises in analysis of Bulgarian solitaire.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
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 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Allan C. Wechsler, Jun 07 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 28 2003
STATUS
approved