一個兩位整數 A 本身是素數，若將其個位數字與十位數字交換，得到一個新的兩位數 B， 而 B 也是素數，我們則稱 A 為無暇素數。
例如：31是素數，個位數字與十位數字交換後得到13，也是素數。所以31是無暇素數。
程式實現：
FREEBASIC
DECLARE FUNCTION PRIME(X AS INTEGER) AS INTEGER
DIM AS INTEGER I,LN,C,J,FC
DIM AS STRING N
INPUT N
LN=LEN(N)-2
FOR I=1 TO LN
C=VAL(MID(N,I,2))
FC=(C MOD 10)*10+C\10
IF PRIME(FC)=1 AND PRIME(C)=1 THEN
PRINT C;",";
END IF
NEXT I
SLEEP
END
FUNCTION PRIME(X AS INTEGER) AS INTEGER
DIM AS INTEGER J,F
F=0
FOR J=2 TO SQR(X)
IF X MOD J=0 THEN
F=1
EXIT FOR
END IF
NEXT J
IF F=0 THEN PRIME=1
END FUNCTION
