|
Search: id:A074339
|
|
|
| A074339 |
|
a(1) = 3; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
12
|
|
| 3, 7, 9, 51, 57, 103, 119, 121, 183, 293, 301, 351, 447, 479, 577, 741, 839, 1051, 1277, 1431, 1633, 1877, 2043, 2251, 2303, 2659, 2937, 3447, 3897, 3969, 4059, 4179, 4371, 4389, 4563, 4841, 4903, 5097, 5103, 5369, 5689, 6621, 6831, 6927, 7479, 9227, 9351
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 3; 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, 47}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A069605, A033681, A074336, A074338, A074340, A074341, A074342, A074343, A074344, A074345, A074346.
Sequence in context: A053366 A128052 A033681 this_sequence A115164 A003033 A087147
Adjacent sequences: A074336 A074337 A074338 this_sequence A074340 A074341 A074342
|
|
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
|
