|
Search: id:A100633
|
|
|
| A100633 |
|
Primes constructed from the concatenation of three separate primes. |
|
+0
1
|
|
| 257, 523, 1123, 1153, 1327, 1373, 1723, 1753, 1973, 2113, 2137, 2237, 2293, 2297, 2311, 2341, 2347, 2357, 2371, 2377, 2383, 2389, 2417, 2437, 2473, 2477, 2531, 2543, 2579, 2593, 2617, 2677, 2711, 2713, 2719, 2729, 2731, 2741, 2753, 2767, 2789, 2797
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
(*first do *) Needs["DiscreteMath`Combinatorica`"] (* then *) t = KSubsets[ Prime[ Range[25]], 3]; lst = {}; Do[k = 1; u = Permutations[ t[[n]]]; While[k < 7, v = FromDigits[ Flatten[IntegerDigits /@ u[[k]]]]; If[ PrimeQ[v], AppendTo[lst, v]]; k++ ], {n, Binomial[25, 3]}]; Take[ Union[lst], 42]
|
|
CROSSREFS
|
Cf. A100607.
Sequence in context: A158231 A070815 A095321 this_sequence A007765 A142291 A105131
Adjacent sequences: A100630 A100631 A100632 this_sequence A100634 A100635 A100636
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 03 2004
|
|
|
Search completed in 0.002 seconds
|
