|
Search: id:A074344
|
|
|
| A074344 |
|
a(1) = 8; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
12
|
|
| 8, 9, 23, 51, 69, 81, 93, 129, 169, 179, 181, 273, 321, 323, 471, 493, 633, 689, 781, 933, 951, 969, 1229, 1309, 1509, 1707, 1821, 1863, 1913, 2169, 2337, 2433, 3259, 3513, 3681, 3921, 4431, 4611, 5043, 5091, 5361, 5409, 6231, 6471, 6999, 7757, 7963, 8283
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 8; 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. A046258, A069610, A074336, A074338, A074339, A074340, A074341, A074342, A074343, A074345, A074346.
Sequence in context: A071869 A048124 A046258 this_sequence A081351 A032462 A077599
Adjacent sequences: A074341 A074342 A074343 this_sequence A074345 A074346 A074347
|
|
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
|
