A069796 Prime(n) and prime(n+4) use the same digits.

179, 1091, 1213, 1279, 3313, 3637, 4273, 6637, 8237, 8293, 8537, 9137, 9613, 10937, 12071, 14071, 15137, 19237, 19937, 20639, 21013, 22817, 22937, 24091, 24317, 26713, 28439, 29137, 29837, 31379, 32537, 33037, 33071, 35339, 36913, 37117

Offset: 1

Author

Amarnath Murthy, Apr 09 2002

Keywords

• base
• nonn

Examples

			6637 is a member as the fourth next prime 6673 uses the same digits.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A069793, A069567, A069794, A069795.

Programs

Mathematica

p = {0}; q = {1}; r = {1}; s = {1}; t = {1}; Do[ If[p == t, Print[ Prime[n - 5]]]; p = q; q = r; r = s; s = t; t = Sort[ IntegerDigits[ Prime[n]]], {n, 5 10^3}]
Transpose[Select[Partition[Prime[Range[5000]],5,1],Sort[ IntegerDigits[ First[#]]] == Sort[IntegerDigits[Last[#]]]&]][[1]] (* Harvey P. Dale, Dec 26 2015 *)

Extensions

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