A134766 Primes among variant of permutational numbers A134750.

5, 139, 163, 193, 199, 241, 283, 313, 1019, 1319, 1367, 1523, 1759, 2179, 2251, 2539, 2767, 2803, 2851, 2927, 3011, 3163, 3167, 3191, 3319, 3323, 3347, 3491, 3539, 3547, 3559, 3571, 3607, 3691, 11261, 11471, 11801, 11831, 12281, 12641, 13121, 13721

Offset

1,1

Comments

For indices where primes occured in A134750 see A134767

Links

Table of n, a(n) for n=1..42.

Mathematica

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

Crossrefs

Cf. A134640, A134641, A134750.

Sequence in context: A192642 A192643 A192644 * A224826 A122911 A103235

Adjacent sequences: A134763 A134764 A134765 * A134767 A134768 A134769

Keyword

nonn

Author

Artur Jasinski, Nov 10 2007

Status

approved