A134767 Indices where primes occur in variant of permutational numbers A134750.

3, 14, 17, 19, 20, 25, 28, 33, 38, 52, 57, 63, 68, 89, 91, 100, 111, 113, 115, 119, 123, 124, 125, 127, 130, 131, 133, 141, 142, 143, 144, 145, 146, 151, 158, 164, 172, 174, 179, 185, 198, 209, 212, 256, 258, 275, 294, 299, 307, 309, 323, 326, 331, 332, 337

Offset

1,1

Comments

For primes in A134750 see A134766

Links

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

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, n]], {n, 1, Length[a]}]; k

Crossrefs

Cf. A134640, A134641, A134750, A134766.

Sequence in context: A349767 A022890 A032920 * A022125 A121459 A121226

Adjacent sequences: A134764 A134765 A134766 * A134768 A134769 A134770

Keyword

nonn

Author

Artur Jasinski, Nov 10 2007

Status

approved