OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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
Amarnath Murthy, Apr 09 2002
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Apr 12 2002
STATUS
approved