A100633 Primes that are the decimal concatenation of three separate primes.

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

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