|
Search: id:A046258
|
|
|
| A046258 |
|
a(1) = 8; a(n) is smallest number >= a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
12
|
|
| 8, 9, 23, 51, 69, 81, 93, 129, 169, 179, 181, 273, 321, 321, 449, 639, 769, 857, 1047, 1213, 1233, 1443, 1587, 1637, 1953, 2433, 2599, 2639, 2901, 3261, 3681, 4059, 5109, 5169, 5407, 5691, 6149, 6531, 7939, 8081, 8211, 8439, 8589, 8623, 8663, 8757, 9459
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 8; a[n_] := a[n] = Block[{k = a[n - 1], c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k ++ ]; k]; Table[ a[n], {n, 47}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Aug 05 2005)
|
|
CROSSREFS
|
Cf. A069610, A074344, A033680, A033679, A033681, A046254, A046255, A046256, A046257, A046259, A111524.
Adjacent sequences: A046255 A046256 A046257 this_sequence A046259 A046260 A046261
Sequence in context: A061414 A071869 A048124 this_sequence A074344 A081351 A032462
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com), May 15, 1998.
|
|
|
Search completed in 0.002 seconds
|
