OFFSET
1,1
COMMENTS
The second digit of the number is allowed to be zero, the resulting zero digit is ignored.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..201 (The complete list of terms)
EXAMPLE
1013 is a member because (0)131 = 131 is a prime.
MATHEMATICA
swprQ[n_]:=Module[{idn=IntegerDigits[n]}, PrimeQ[FromDigits[ {idn[[2]], idn[[1]], idn[[4]], idn[[3]]}]]]; Select[Prime[Range[ PrimePi[ 1000]+ 1, PrimePi[ 10000]]], swprQ]
CROSSREFS
KEYWORD
nonn,fini,full,base
AUTHOR
Harvey P. Dale, Dec 28 2015
STATUS
approved