|
Search: id:A074341
|
|
|
| A074341 |
|
a(1) = 4; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
12
|
|
| 4, 7, 9, 11, 81, 87, 109, 117, 123, 129, 201, 389, 429, 441, 771, 811, 831, 1037, 1143, 1299, 1569, 1581, 1803, 1837, 1943, 2053, 2171, 2379, 2431, 3201, 3437, 3489, 3723, 3841, 4289, 4801, 5523, 6249, 7083, 7467, 7749, 8171, 9073, 9333, 9683, 9781, 10833
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 4; 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. A033679, A033680, A033681.
Cf. A069606, A046254, A074336, A074338, A074339, A074340, A074342, A074343, A074344, A074345, A074346.
Sequence in context: A109180 A025054 A139586 this_sequence A085922 A048973 A092861
Adjacent sequences: A074338 A074339 A074340 this_sequence A074342 A074343 A074344
|
|
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
|
