|
Search: id:A074346
|
|
|
| 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. |
|
+0
12
|
|
| 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; listen)
|
|
|
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.
Adjacent sequences: A074343 A074344 A074345 this_sequence A074347 A074348 A074349
Sequence in context: A018785 A001273 A111524 this_sequence A126973 A102249 A062370
|
|
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
|
|
|
Search completed in 0.002 seconds
|
