login
A069794
Prime(n) and prime(n+2) use the same digits.
3
113, 313, 1579, 2113, 2879, 3779, 4813, 5179, 5237, 5279, 5879, 6113, 6379, 8713, 9091, 9479, 9679, 10313, 10513, 10613, 13313, 13913, 14779, 15013, 17579, 18713, 19213, 20879, 22013, 22091, 22679, 24179, 25037, 25913, 26479, 27179, 28579
OFFSET
1,1
COMMENTS
Prime(n) and prime(n+2) must use the same digits and the same number of repetitions of each digit. - Harvey P. Dale, Apr 26 2015
EXAMPLE
113 is a member as the next to next prime 131 uses the same digits.
MATHEMATICA
p = {0}; q = {1}; r = {1}; Do[ If[p == r, Print[ Prime[n - 3]]]; p = q; q = r; r = Sort[ IntegerDigits[ Prime[n]]], {n, 3 10^3}]
sdQ[n_]:=Sort[IntegerDigits[n]]==Sort[IntegerDigits[NextPrime[n, 2]]]; Select[Prime[Range[4000]], sdQ] (* Harvey P. Dale, Apr 26 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 09 2002
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Apr 12 2002
STATUS
approved