%I
%S 5,139,163,193,199,241,283,313,1019,1319,1367,1523,1759,2179,2251,
%T 2539,2767,2803,2851,2927,3011,3163,3167,3191,3319,3323,3347,3491,
%U 3539,3547,3559,3571,3607,3691,11261,11471,11801,11831,12281,12641,13121,13721
%N Primes among variant of permutational numbers A134750.
%C For indices where primes occured in A134750 see A134767
%t k = {}; a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[1 + w[[m]], n + 1]; AppendTo[a, j], {m, 1, Length[w]}], {n, 0, 6}]; Do[If[PrimeQ[a[[n]]], AppendTo[k, a[[n]]]], {n, 1, Length[a]}]; k
%Y Cf. A134640, A134641, A134750.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 10 2007
