|
Search: id:A074336
|
|
|
| A074336 |
|
a(1) = 1; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
14
|
|
| 1, 3, 7, 11, 13, 29, 37, 113, 121, 149, 151, 201, 219, 251, 451, 453, 573, 669, 689, 697, 749, 913, 969, 1157, 1269, 1503, 1531, 1809, 2087, 2163, 2179, 2511, 2537, 2599, 2709, 2789, 2929, 3243, 3989, 4033, 4151, 5019, 5389, 5423, 5599, 6179, 6433, 8267
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
a[1] = 1; 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, 48}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A033680, A092528, A069602, A074338, A074339, A074340, A074341, A074342, A074343, A074344, A074345, A074346.
Sequence in context: A106561 A111363 A114273 this_sequence A086475 A154832 A164568
Adjacent sequences: A074333 A074334 A074335 this_sequence A074337 A074338 A074339
|
|
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
|
