(蟒蛇)
定义压差(n):
…p=1
…对于str(n)中的i:
……p*=整数(i)
..返回p
定义pal(n):
…r=''
…对于str(n)中的i:
……r=i+r
..返回r==str(n)
{如果DP(n)和pal(n)以及pal(n-DP(n)),则在(1,10**6)范围内打印(n,end=',')}
##简化为德里克·奥尔2015年4月5日
(PARI)pal(n)=d=数字(n);Vecrev(d)==d
对于(n=1,10^7,d=数字(n);p=prod(i=1,#d,d[i]);if(p&&pal(n)&&pal(n-p),print1(n,“,”))\\德里克·奥尔2015年4月5日
|