|
Search: id:A134766
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
For indices where primes occured in A134750 see A134767
|
|
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.
Adjacent sequences: A134763 A134764 A134765 this_sequence A134767 A134768 A134769
Sequence in context: A012215 A012142 A012207 this_sequence A122911 A103235 A061463
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 10 2007
|
|
|
Search completed in 0.002 seconds
|
