cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A046035 Numbers k such that the concatenation of the first k primes (A019518) is a prime.

Original entry on oeis.org

1, 2, 4, 128, 174, 342, 435, 1429
Offset: 1

Views

Author

Keywords

Comments

No other terms with k <= 34736. - Eric W. Weisstein, Oct 30 2015

Examples

			4 is a term since 2357 is a prime. [Corrected by Ed Murphy (emurphy42(AT)socal.rr.com), May 15 2007]
		

References

  • R. Crandall and C. Pomerance, Prime Numbers: A Computational Perspective, Springer, NY, 2001; see p. 72. [The 2002 printing states incorrectly that 719 is a term.]

Crossrefs

Cf. A033308 (Decimal expansion of Copeland-Erdős constant: concatenate primes).

Programs

  • Mathematica
    max = 1500; With[{primes = Prime[Range[max]]}, Flatten[Position[ Table[ FromDigits[Flatten[IntegerDigits/@Take[primes, n]]], {n, max}], ?PrimeQ]]] (* _Harvey P. Dale, Dec 17 2013 *)
    Position[FromDigits /@ Rest[FoldList[Join, {}, IntegerDigits[Prime[Range[ 10^3]]]]], ?PrimeQ] // Flatten (* _Eric W. Weisstein, Oct 30 2015 *)
  • PARI
    p=""; for(n=1, 2000, p=concat(p, prime(n)); if(ispseudoprime(eval(p)), print1(n", "))) \\ Altug Alkan, Oct 30 2015

Formula

a(n) = A000720(A046284(n)), or A046284(n) = prime(a(n)).