|
（PARI）
基础E（x，b）=
{
局部（d，e=0，f=1）；
而（x>0，d=x-b*（x\b）；x=b；e+=d*f；f*=10）；
返回（e）
}
总AD（x）=
{
局部（a=1，s=0）；
而（x>9，s+=a*（x-10*（x\10））；x=10；a=-a）；
返回（s+a*x）
}
{对于（n=11000，p=素数（n））；
s=总和AD（基数E（p，2））；写入（“b065081.txt”，n，“”，s）
（PARI）
f（p）=
{
v=二进制（p）；
L=#v；u=1；s=0；
对于步骤（k=L，1，-1，如果（v[k]==1，s+=u）；u=-u；）；
返回
};
对于（n=1100，p=素数（n）；a=f（p）；打印1（an，“，”）\\华盛顿·邦菲姆，2011年1月16日
| 