corrected sequence A071761
Jeremy Gardiner
jeremy.gardiner at btinternet.com
Mon Dec 6 18:45:55 CET 2004
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
More information about the SeqFan
mailing list