|
Search: id:A074343
|
|
|
| A074343 |
|
a(1) = 7; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
12
|
|
| 7, 9, 19, 27, 47, 57, 61, 81, 179, 211, 251, 273, 373, 477, 581, 753, 847, 909, 971, 1399, 1623, 1967, 2139, 2629, 2979, 3297, 3393, 3647, 3793, 4281, 4337, 4411, 4517, 4831, 4979, 5131, 5841, 5897, 5953, 5991, 6287, 6309, 8101, 8147, 8521, 8877, 8969, 9699
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 7; 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. A046257, A069609, A074336, A074338, A074339, A074340, A074341, A074342, A074344, A074345, A074346.
Sequence in context: A053803 A032791 A046257 this_sequence A103853 A139202 A125968
Adjacent sequences: A074340 A074341 A074342 this_sequence A074344 A074345 A074346
|
|
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
|
