|
Search: id:A074366
|
|
|
| A074366 |
|
a(n) = the first prime > the concatenation of the first n primes. |
|
+0
1
|
|
| 3, 29, 239, 2371, 235723, 23571127, 2357111357, 235711131727, 23571113171939, 2357111317192343, 235711131719232977, 23571113171923293283, 2357111317192329313801, 235711131719232931374149
(list; graph; listen)
|
|
|
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: A083092 A153825 A135163 this_sequence A037791 A037672 A037798
Adjacent sequences: A074363 A074364 A074365 this_sequence A074367 A074368 A074369
|
|
KEYWORD
|
nonn
|
|
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
|
|
|
Search completed in 0.002 seconds
|
