|
|
A069796
|
|
Prime(n) and prime(n+4) use the same digits.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
6637 is a member as the fourth next prime 6673 uses the same digits.
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|