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: A019396 A038973 A045349 this_sequence A045350 A045351 A051645

Adjacent sequences: A134638 A134639 A134640 this_sequence A134642 A134643 A134644

nonn

Artur Jasinski (grafix(AT)csl.pl), Nov 05 2007