sum(if primep(i)and sreverse(a:string(i))=a then dispterms(i),i,2,20000);