|
| |
|
|
A100633
|
|
Primes that are the decimal concatenation of three separate primes.
|
|
0
|
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..42.
|
|
|
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 * A007765 A250726 A142291
Adjacent sequences: A100630 A100631 A100632 * A100634 A100635 A100636
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Robert G. Wilson v, Dec 03 2004
|
|
|
EXTENSIONS
|
Edited by Charles R Greathouse IV, Apr 29 2010
|
|
|
STATUS
|
approved
|
| |
|
|
