|
%I #9 Jul 18 2023 12:56:50
%S 12907,18270,21569,32666,37606,52126,54347,61411,62674,71369,71862,
%T 75799,85596,87991,91134,96842,101269,106456,109524,109557,113663,
%U 117385,128411,129762,137489,140643,150808,153329,158982,161505,163740
%N Integers n such that the century defined by the interval [100n+1, 100n+100] (i.e., the (n+1)-st century) contains exactly one Ormiston prime pair and no other primes.
%e 12907 is included since (1290719,1290791) is an Ormiston prime pair and there are no other primes in the century.
%t 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 *)
%Y Cf. A162893, A162894.
%K base,nonn
%O 1,1
%A _Ray Chandler_ and _Ki Punches_, Jul 16 2009
|
