1,1
Conjecture: This sequence is finite and complete (*Artur Jasinski*).
a = {}; b = {}; Do[AppendTo[b, n]; w =Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; If[PrimeQ[j], AppendTo[a, j]], {m, 1, Length[w]}], {n, 0, 10}]; a (*Artur Jasinski*)
Cf. A134640.
Sequence in context: A172527 A045349 A163695 * A162491 A152216 A045350
Adjacent sequences: A134638 A134639 A134640 * A134642 A134643 A134644
nonn
Artur Jasinski (grafix(AT)csl.pl), Nov 05 2007
