|
Search: id:A046256
|
|
|
| A046256 |
|
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, 7, 9, 27, 59, 69, 181, 201, 257, 267, 399, 573, 603, 861, 901, 923, 1021, 1133, 1239, 1251, 1519, 1589, 1729, 1863, 1901, 2541, 3001, 3017, 3049, 3243, 4407, 4481, 5457, 5839, 5889, 5919, 6159, 6201, 6293, 6577, 6603, 6969, 7217, 8131, 8981, 9033
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a[1] = 6; 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 ++ ]; k]; Table[ a[n], {n, 47}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Aug 05 2005)
|
|
CROSSREFS
|
Cf. A069608, A074342, A033680, A033679, A033681, A046254, A046255, A046257, A046258, A046259, A111524.
Sequence in context: A023409 A008938 A021600 this_sequence A004495 A113786 A004487
Adjacent sequences: A046253 A046254 A046255 this_sequence A046257 A046258 A046259
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com), May 15, 1998.
|
|
|
Search completed in 0.002 seconds
|
