（PARI）/*助手函数：*/
admissibleMod（M=10^5，t=[3,9]，debug=0）={my（p=1，v）；而（M>p*=10，
t=连接（[t，t+t[1]*v=向量（#t，i，p），t+t[2]*v]）；
调试和打印（“t=”t）；t=设置（t）；v=[]；
对于（k=1，M，setsearch（t，k^2%M）&&v=concat（v，k））；concat（v，M+v[1]）}
/*可选参数：Nmax=搜索上限，N=开始/下限，
addMod=步长/块大小，调试：0=静默，1=详细*/
A058433号（Nmax=1e10，N=1，addMod=10^5，debug=1）={my（a=[]，d=1，
addNext=admissibleMod（addMod=10^logint（addMod\/1,10），[3,9]），
add=向量（addMod，i，i-1>addNext[d]&&d++；addNext[d]-i+1），
pow10=[10^k|k<-[0..logint（（Nmax\/=1）^2，10）]]，
nextOK=[如果（n，n*pow10）|n<-[0，2，1，0，5，4，3，2，1,0]]）；N/=1；
而（Nmax>=N，my（N2=N^2，numDigits=logint（N2，10）+1，
place=nextOK[1+d=N2\pow10[numDigits]]）；
如果（place，N=max（平方（place[numDigits]+d*pow10[numBigits]），N+1）；
下一步）；位置=1；
my（Nnext=最小值（平方（（d+1）*pow10[numDigits]），Nmax））；
调试和打印（“检查从“N”到“Nnext”：<=”，
1+最大值（0，Nnext-N）*（#addNext-1）\addMod，“候选者”）；
而（Nnext>=N+=添加[1+N%addMod]，
my（dr=divrem（N2=N^2，pow10[位置=numDigits]）；
while（place--&&！d=nextOK[1+（dr=divrem（dr[2]，pow10[place]））[1]，）；
放置中断；N=平方（N2-dr[2]+d[位置]）+1；
); 如果（！place，debug&&print（N“^2=”，N^2）；a=concat（a，N））；
N=N下一个*3\2+1）；一个}\\M.F.哈斯勒2007年5月14日
