|
| |
|
|
A074346
|
|
a(1) = 10; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime.
|
|
11
| |
|
|
10, 13, 23, 49, 111, 113, 171, 211, 293, 309, 333, 387, 463, 479, 513, 687, 933, 973, 993, 1329, 1433, 1449, 1551, 2071, 2271, 2423, 2587, 2621, 2659, 2757, 2771, 2911, 3081, 3243, 3279, 3671, 4243, 4247, 4371, 4453, 4511, 5229, 6097, 6177, 6293, 6571
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| a[1] = 10; a[n_] := a[n] = Block[{k = a[n - 1] + 1 + Mod[a[n - 1], 2], c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 46}] (* Robert G. Wilson v *)
|
|
|
CROSSREFS
| Cf. A111524, A111525, A074336, A074338, A074339, A074340, A074341, A074342, A074343, A074344, A074345.
Sequence in context: A176762 A001273 A111524 * A126973 A101215 A102249
Adjacent sequences: A074343 A074344 A074345 * A074347 A074348 A074349
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Sep 23 2002
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Aug 05 2005
|
| |
|
|
