A163678 Smaller prime p in Ormiston pairs (p, q) with q - p = 18.
1913, 18379, 19013, 25013, 34613, 35879, 36979, 37379, 37813, 40013, 40213, 45613, 48091, 49279, 51613, 55313, 56179, 56713, 58613, 63079, 63179, 64091, 65479, 66413, 74779, 75913, 76213, 76579, 76679, 85313, 88379, 90379, 90679, 93113
Offset: 1
Examples
(19013, 19031) is an Ormiston pair with gap 18, so 19013 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(100000) | q-p eq 18 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[10000]], 2, 1], Last[#] - First[#] == 18 &], Sort[IntegerDigits[First[#]]] == Sort[IntegerDigits[Last[#]]] &]][[1]] (* G. C. Greubel, Aug 02 2017 *)
Extensions
Keyword base added by Klaus Brockhaus, Sep 18 2009
Comments