OFFSET
0,1
EXAMPLE
a(1) = 1913 as the next prime 1931 uses the same digits. a(2) = 113 as the next to next prime 131 uses the same digits.
MATHEMATICA
Do[a = {{{0}}}; a = Flatten[ Append[a, Table[{1}, {n}]], 1]; k = 1; While[ a[[1]] != a[[ -1]], a = Drop[a, 1]; k++; a = Append[a, Sort[ IntegerDigits[ Prime[k]]]]]; Print[ Prime[k - n]], {n, 1, 40}]
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