|
Search: id:A134767
|
|
|
| A134767 |
|
Indices where primes occur in variant of permutational numbers A134750. |
|
+0
3
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
For primes in A134750 see A134766
|
|
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.
Adjacent sequences: A134764 A134765 A134766 this_sequence A134768 A134769 A134770
Sequence in context: A009401 A022890 A032920 this_sequence A022125 A121459 A121226
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 10 2007
|
|
|
Search completed in 0.002 seconds
|
