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.

A244064 Primes which are concatenation of prime(n), prime(10n) and prime(100n).

Original entry on oeis.org

4173310657, 97158322307, 137221330559, 223341346447, 251390752919, 271423157191, 367552173973, 433647386371, 487729796581, 491741197813, 5097643101281, 6018831116447, 6179109119983, 6439439124577, 70910343136379, 71910459137477, 82311933155327, 82912109157739
Offset: 1

Views

Author

K. D. Bajpai, Jun 19 2014

Keywords

Examples

			4173310657 is in the sequence because concatenation of [prime(13), prime(130), prime(1300)] = 4173310657, which is a prime.
97158322307 is in the sequence because concatenation of [prime(25), prime(250), prime(2500)] = 97158322307, which is a prime.
		

Crossrefs

Cf. A031343 (prime(10n)), A031921 (prime(100n)).

Programs

  • Maple
    with(numtheory): with(StringTools): A244064:= proc() local a,b,c,m; a:=ithprime(n); b:=ithprime(10*n); c:=ithprime(100*n);m:=parse(cat(a,b,c)); if isprime(m) then RETURN (m); fi; end: seq(A244064 (), n=1..300);
  • Mathematica
    A244064 = {}; Do[t = FromDigits[Flatten[IntegerDigits /@ {Prime[n], Prime[10 n], Prime[100 n]}]]; If[PrimeQ[t], AppendTo[A244064, t]], {n, 300}]; A244064