OFFSET
1,1
EXAMPLE
12907 is included since (1290719,1290791) is an Ormiston prime pair and there are no other primes in the century.
MATHEMATICA
oppQ[n_]:=Module[{r1=100n+1, r2=100n+100, prs}, prs=Select[Range[r1, r2], PrimeQ]; Length[prs] == 2&&Sort[IntegerDigits[prs[[1]]]]==Sort[IntegerDigits[prs[[2]]]]]; Select[Range[170000], oppQ] (* Harvey P. Dale, Jul 18 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Ray Chandler and Ki Punches, Jul 16 2009
STATUS
approved