corrected sequence A071761

[Jeremy Gardiner]

ID Number: A071761
Sequence:  0,1,2,21,31,32,321,421,431,432,4321,5321,5421,5431,5432,
          54321,64321,65321,65421,65431,65432,654321,754321,764321,
          765321,765421,765432,7654321,8654321,8754321,8764321,
          8765321,8765421,8765431,8765432
Name:      Pattern is self-evident.
Comments:  Arises in analysis of Bulgarian solitaire.

I calculate the following corrected sequence:

0,1,2,21,31,32,321,421,431,432,4321,5321,5421,5431,5432,54321,64321,65321,65
421,65431,65432,654321,754321,764321,765321,765421,765431,765432,7654321,865
4321,8754321,8764321,8765321,8765421,8765431,8765432,

I believe the error occurs at 765432.

Maybe the pattern is not so self-evident after all ;-)

100 rem BASIC program for Bulgarian solitaire (A071761)
110 a$ = "21"
120 for k = 1 to 10
130 prt()
140 for i = 1 to len(a$)
150 mid$(a$,i,1) = str$(val(mid$(a$,i,1))+1)
160 prt()
170 next i
180 a$ = a$+"1"
190 next k
200 print
210 function prt()
220 for j = 1 to len(a$)
230 print mid$(a$,j,1);
240 next j
250 print ",";
260 return