分かりにくい問題です。2倍して10以上になるのは5,6,7,8,9です。5,6,8のパターンが分かっているので、残りの１→・・・・7→1となるパターンと１→・・・・9→1となるパターンを探せばよいことが分かります。
2→S
1→Y
Lbl 1:S×2→S
Int(S÷10^(Int(log(S)))→X
Y×10+X→Y
If X=1:Then 1→Y
IfEnd
If X=7:Then Y×10+1:Stop:IfEnd
Goto 1
X=7のとき1371、X=9のとき12491が求められる。