|
Search: id:A033680
|
|
|
| A033680 |
|
a(1) = 1; a(n) is smallest number >= a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime. |
|
+0
15
|
|
| 1, 1, 3, 11, 13, 29, 39, 49, 83, 141, 247, 273, 291, 347, 373, 401, 441, 567, 571, 651, 903, 957, 1001, 1129, 1401, 1457, 1467, 1561, 1889, 2083, 2169, 2523, 2717, 2743, 3447, 3509, 3711, 4087, 4899, 4983, 5087, 5151, 5263, 5429, 5551, 6017, 7389, 7839
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
a[1] = 1; a[n_] := a[n] = Block[{k = a[n - 1], 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. A074336, A092528, A069602, A033679, A033681, A046254, A046255, A046256, A046257, A046258, A046259, A111524.
Sequence in context: A117682 A045429 A019374 this_sequence A032917 A006559 A023248
Adjacent sequences: A033677 A033678 A033679 this_sequence A033681 A033682 A033683
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com).
|
|
EXTENSIONS
|
More terms from Patrick De Geest (pdg(AT)worldofnumbers.com), May 15, 1998.
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 05 2005
|
|
|
Search completed in 0.002 seconds
|
