|
Search: id:A074345
|
|
|
| A074345 |
|
a(1) = 9; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
12
|
|
| 9, 11, 21, 33, 39, 71, 73, 81, 101, 123, 193, 257, 271, 293, 379, 387, 407, 627, 669, 931, 1073, 1179, 1273, 1481, 2587, 2627, 2923, 3063, 3617, 3931, 4073, 4093, 4199, 4491, 4801, 5387, 5647, 5739, 5859, 5979, 6149, 6369, 7527, 8053, 8207, 8647, 8949, 8981
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 9; 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. A046259, A069611, A074336, A074338, A074339, A074340, A074341, A074342, A074343, A074344, A074346.
Sequence in context: A137018 A090771 A046259 this_sequence A022323 A106525 A103510
Adjacent sequences: A074342 A074343 A074344 this_sequence A074346 A074347 A074348
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Sep 23 2002
|
|
EXTENSIONS
|
Corrected and extended by Robert G. Wilson v (rgwv(at)rgwv.com), Aug 05 2005
|
|
|
Search completed in 0.002 seconds
|
