Palindromic primes in base 16: Difference between revisions

if cols>0 then say '───────┼'center("" , 1 + cols*(w+1), '─')

finds= 0; idx= 1 /*define # of palindromic primes & idx.*/

do j=1 for hidec; if \!.j then iterate /*J (decimal) not prime? Then skip.*/

x= d2x(j); if x\==reverse(x) then iterate /*Hex value not palindromic? " " */