|
Search: id:A074342
|
|
|
| A074342 |
|
a(1) = 6; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
12
|
|
| 6, 7, 19, 21, 23, 27, 57, 183, 207, 231, 247, 267, 399, 417, 441, 459, 569, 603, 693, 847, 933, 1107, 1149, 1197, 1251, 1581, 1619, 2061, 2137, 2139, 2339, 2643, 2703, 2743, 2847, 2987, 3199, 3447, 3477, 3641, 3919, 4241, 4369, 4599, 4761, 6647, 6739, 6831
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 6; 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. A046256, A069608, A074336, A074338, A074339, A074340, A074341, A074343, A074344, A074345, A074346.
Sequence in context: A030746 A005302 A028324 this_sequence A102789 A081348 A002361
Adjacent sequences: A074339 A074340 A074341 this_sequence A074343 A074344 A074345
|
|
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
|
