login
A266369
Four-digit primes such that simultaneously swapping the first two digits and swapping the last two digits produces another prime.
1
1013, 1019, 1031, 1039, 1093, 1097, 1117, 1171, 1213, 1231, 1297, 1319, 1373, 1433, 1493, 1531, 1579, 1597, 1613, 1637, 1699, 1777, 1811, 1871, 1933, 1973, 1999, 2011, 2017, 2039, 2113, 2131, 2179, 2237, 2239, 2273, 2293, 2371, 2399, 2411, 2417, 2437, 2579
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
Sequence in context: A073144 A131461 A166975 * A165295 A069489 A157008
KEYWORD
nonn,fini,full,base
AUTHOR
Harvey P. Dale, Dec 28 2015
STATUS
approved