求1000以内所有的既是回文数同时又是素数的自然数，如11，33，747等

33似乎不是素数吧。

回文素数啊……
那个的话……欧拉筛打好素数表
然后一个个判断是否是回文数
如果我脑残了说错了就打脸了

'求1000以内既是回文数又是素数的数
FOR i=11 TO 999
j = INT(SQR(I))
flag = 0
FOR k%=2 TO j
if i MOD k%=0 THEN
flag = 1
EXIT FOR
END IF
NEXT k%
IF flag=0 THEN
a$ = STR$(I)
b$ = LTRIM$(a$)
n = LEN(b$)
FOR l=1 TO INT(n/2)
c$ = MID$(b$, L, 1)
d$ = MID$(b$, n - L + 1, 1)
IF c$<>d$ THEN
flag = 1
EXIT FOR
END IF
NEXT l
END IF
IF flag=0 THEN PRINT i
NEXT i
END