#Maple中以“bas”为基数的逗号接替符，来自N.J.A.斯隆2023年12月6日
基本值：=3；
L数字：=proc（n）局部v；v：=换算（n，基数，bas）；v[-1]；结束；#返回前导数字
#如果不存在后续项，则返回a的逗号后续项或-1
commsuc:=进程（a）局部f，i，d；
f:=（mod-bas）；
d： =基础*f；
对于i从1到bas-1 do
d：=d+1；
如果L数字（a+d）=i，则返回（a+d）；fi；
日期：
返回（-1）；
结束；
a： =[1]；s：=1；对于从1到16的n，dos：=commsuc（s）；a:=[操作（a），s]；od:a；
