A163682 Smaller prime p in Ormiston pairs (p, q) with q - p = 90.
2030789, 2542237, 3863017, 4508341, 7001123, 7583341, 8482459, 8547677, 8916239, 9194677, 9470017, 11117123, 11755673, 11999563, 13691563, 13898237, 15906127, 16047673, 16272343, 16299013, 16829563, 17437457, 17604347
Offset: 1
Examples
(3863017, 3863107) is an Ormiston pair with gap 90, so 3863017 is in the sequence.
Links
- G. C. Greubel, Table of n, a(n) for n = 1..5000
- Jens Kruse Andersen, Ormiston Tuples
- Eric Weisstein's World of Mathematics, Rearrangement Prime Pair
Programs
-
Magma
[ p: p in PrimesUpTo(17700000) | q-p eq 90 and a eq b where a is Sort(Intseq(p)) where b is Sort(Intseq(q)) where q is NextPrime(p) ];
-
Mathematica
Transpose[Select[Select[Partition[Prime[Range[70000]], 2, 1], Last[#] - First[#] == 90 &], Sort[IntegerDigits[First[#]]] == Sort[IntegerDigits[Last[#]]] &]][[1]] (* G. C. Greubel, Aug 02 2017 *)
Extensions
Keyword base added by Klaus Brockhaus, Sep 18 2009
Comments