A069794 Prime(n) and prime(n+2) use the same digits.

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

Author

Amarnath Murthy, Apr 09 2002

Keywords

• base
• nonn

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

Examples

			113 is a member as the next to next prime 131 uses the same digits.
		

Crossrefs

Cf. A069793, A069567, A069795, A069796.

Programs

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 *)

Extensions

Edited, corrected and extended by Robert G. Wilson v, Apr 12 2002