OFFSET
1,1
COMMENTS
No more terms < 10^13.
LINKS
Carlos Rivera, Puzzle 591
MATHEMATICA
lst = {}; n = 1; Do[If[PrimeQ[p], i = IntegerDigits[p]; If[FreeQ[i, n], t = 0; s = IntegerLength[p]; Do[If[PrimeQ@FromDigits@Insert[Drop[i, {d}], n, d], t++, Break[]], {d, s}]; If[t == s, AppendTo[lst, p]]]], {p, 334777}]; lst
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Arkadiusz Wesolowski, Apr 03 2013
STATUS
approved