使用（组合，fibonacci）：
打印（“%d%d%d\n”，0，15，610）：
对于从1到26的n，执行以下操作：
ii:=0:fn:=fibonacci（n）：l:=长度（fn）：
对于从1到10000的k，当（ii=0）时：
fk:=fibonacci（k）：xk:=convert（fk，base，10）：nk:=nops（xk）：
n1：=nk-l+1：
对于从1到n1的j，而（ii=0）则：
s： =总和（'xk[j+i-1]*10^（i-1）'，'i'=1..l）：
如果s=fn和fn<>fk
然后
ii:=1:printf（“%d%d%d\n”，n，k，fk）：
其他的
图1：
日期：
日期：
日期：
#备选方案：
N： =20000：#获取第一个>F（N）之前的所有条目
对于从0到n的n do
S[n]：=冲刺（“%d”，组合：-fibonacci（n））
日期：
从0到n do
对于从n+1到n do的j
如果StringTools:-搜索（S[n]，S[j]）>0，则
A[n]：=组合：fibonacci（j）；
打破
fi；
日期：
如果未指定（A[n]），则中断fi；
日期：
A[1]：=A[2]：
