A074366 The first prime greater than the concatenation of the first n primes.

3, 29, 239, 2371, 235723, 23571127, 2357111357, 235711131727, 23571113171939, 2357111317192343, 235711131719232977, 23571113171923293283, 2357111317192329313801, 235711131719232931374149, 23571113171923293137414371, 2357111317192329313741434781

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..200

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 Elemer, Mar 18 2005 *)
Module[{nn=20, p}, p=Prime[Range[nn]]; Table[NextPrime[FromDigits[Flatten[ IntegerDigits/@Take[p, n]]]], {n, nn}]] (* Harvey P. Dale, Oct 03 2013 *)

Prog

(Python)
from sympy import nextprime, prime, primerange
def a(n):
  return nextprime(int("".join(map(str, primerange(2, prime(n)+1)))))
print([a(n) for n in range(1, 17)]) # Michael S. Branicky, Mar 29 2021

Crossrefs

Cf. A019158.

Sequence in context: A201490 A354402 A135163 * A037791 A037672 A037798

Adjacent sequences: A074363 A074364 A074365 * A074367 A074368 A074369

Keyword

nonn,base

Author

Joseph L. Pe, Sep 26 2002

Extensions

More terms from Labos Elemer, Mar 18 2005

Edited by N. J. A. Sloane, May 21 2008 at the suggestion of R. J. Mathar

Edited by Charles R Greathouse IV, Apr 28 2010

Status

approved