? for(b=17,100,p=11;gef=0;while((gef==0)*(p<10^7),p=nextprime(p+1);if(Mod(p,10^6
)==1,print((p-1)/10^6));if(Vecrev(digits(p))==digits(p),q=digits(p,b);if(Vecrev(
q)==q,gef=1)));if(gef==1,print(b," ",p," ",q));if(gef==0,print(b)))
17
18 1832381 [17, 8, 3, 8, 17]
19 1551551 [11, 17, 3, 17, 11]
20 1917191 [11, 19, 12, 19, 11]
21 757 [1, 15, 1]
22 727 [1, 11, 1]
23
24 1851581 [5, 13, 22, 13, 5]
25 3304033 [8, 11, 11, 11, 8]
26 13331 [19, 18, 19]