|
|
A069795
|
|
Prime(n) and prime(n+3) use the same digits.
|
|
3
|
|
|
79, 379, 613, 1013, 1979, 2713, 3613, 4817, 5413, 9413, 11113, 11579, 11813, 12437, 12479, 14713, 14813, 14879, 15313, 15937, 17239, 18617, 19037, 19979, 20071, 21379, 23279, 23813, 23917, 24337, 27091, 28279, 29437, 29537, 30091, 30781
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
79 is a member as the third next prime 97 uses the same digits.
|
|
MATHEMATICA
|
p = {0}; q = {1}; r = {1}; s = {1}; Do[ If[p == s, Print[ Prime[n - 4]]]; p = q; q = r; r = s; s = Sort[ IntegerDigits[ Prime[n]]], {n, 3 10^3}]
Prime[#]&/@Select[Range[3500], Sort[IntegerDigits[Prime[#]]]==Sort[ IntegerDigits[ Prime[ #+3]]]&] (* Harvey P. Dale, Mar 13 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|