|
| |
|
|
A074366
|
|
The first prime greater than the concatenation of the first n primes.
|
|
0
| |
|
|
3, 29, 239, 2371, 235723, 23571127, 2357111357, 235711131727, 23571113171939, 2357111317192343, 235711131719232977, 23571113171923293283, 2357111317192329313801, 235711131719232931374149
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| The first prime > 235, the concatenation of the first three primes, is 239. Hence a(3) = 239.
|
|
|
MATHEMATICA
| p[n_] := Module[{r, i}, r = 2; i = 1; While[r <= n, i = i + 1; r = Prime[i]]; r]; s = ""; a = {}; Do[s = s <> ToString[Prime[i]]; a = Append[a, p[ToExpression[s]]], {i, 1, 8}]; a
<<NumberTheory`NumberTheoryFunctions` sz[x_] :=FromDigits[Flatten[Table[IntegerDigits[Prime[j]], {j, 1, x}], 1]] Table[NextPrime[sz[w]], {w, 1, 35}] - Labos E. (labos(AT)ana.sote.hu), Mar 18 2005
|
|
|
CROSSREFS
| Cf. A019158.
Sequence in context: A153825 A201490 A135163 * A037791 A037672 A037798
Adjacent sequences: A074363 A074364 A074365 * A074367 A074368 A074369
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Sep 26 2002
|
|
|
EXTENSIONS
| More terms from Labos E. (labos(AT)ana.sote.hu), Mar 18 2005
Edited by N. J. A. Sloane (njas(AT)research.att.com), May 21 2008 at the suggestion of R. J. Mathar
Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Apr 28 2010
|
| |
|
|
